MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Comando para executar Consulta dá erro

    Compartilhe

    ronaldofacre
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 19/09/2015

    [Resolvido]Comando para executar Consulta dá erro

    Mensagem  ronaldofacre em Qua 24 Fev 2016, 12:12

    Cordial bom dia a todos!

    Estou enfrentando o seguinte problema:

    Criei uma consulta de acréscimo cujo nome é "qryConferenciaPorCodBarras_ContagemRegistros_3". Quando dou um duplo clique em cima dela, funciona normalmente. Se aciono através de macro em um botão de comando, funciona normalmente. Porém, quando tento executar através de VBA, no evento "ao clicar" de um botão de comando, dá erro o seguinte erro:

    "Erro em tempo de execução '3061':
    Parâmetros insuficientes. Eram esperados 1.

    Quando clico no botão depurar, ele aponta pra "qy.execute".

    Segue o código que estou usando:

    Private Sub Comando0_Click()
    Dim db As DAO.Database
    Dim qy As DAO.QueryDef

    Set db = CurrentDb()
    Set qy = db.QueryDefs("qryConferenciaPorCodBarras_ContagemRegistros_3")
    qy.Execute
    End Sub


    Última edição por ronaldofacre em Sex 25 Mar 2016, 21:43, editado 1 vez(es)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Comando para executar Consulta dá erro

    Mensagem  JPaulo em Qua 24 Fev 2016, 13:09

    Ola;

    Se você não quer criar uma consulta temporaria, porque está a usar querydef ?

    Faça o simples;

    Código:
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "qryConferenciaPorCodBarras_ContagemRegistros_3", acViewNormal, acEdit
    DoCmd.SetWarnings True


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    ronaldofacre
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 19/09/2015

    Comando para executar Consulta dá erro

    Mensagem  ronaldofacre em Qua 24 Fev 2016, 14:38

    Desde já, obrigado!

    Continua dando o seguinte erro:

    Informa que houve um problema na comunicação entre o meu Banco de dados e o Servidor OLE ou com o controle ActiveX.

    Este erro ocorre quando um evento não pôde ser executado porque não foi possível avaliar a localização da lógica do evento. Por exemplo, se a propriedade OnOpen de um formulário estiver definida como =[Field], o erro ocorrerá porque espera-se que um nome de evento ou macro seja executado quando o evento acontecer.



    Interessante que com a macro está funcionando normalmente.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Comando para executar Consulta dá erro

    Mensagem  JPaulo em Qua 24 Fev 2016, 15:03

    Isso não é a mesma coisa, isso acontece porque você tem erros algures no VBA;

    Abra um modulo qualquer ou entre na secção do VBA pelo form, vá a Debug e Compile, corriga todos os erros que apresentar.

    Depois de todos os erros corrigidos, faça o compactar/reparar.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    ronaldofacre
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 19/09/2015

    Comando para executar Consulta dá erro

    Mensagem  ronaldofacre em Qua 24 Fev 2016, 17:15

    JPaulo,

    Fiz o que vc falou, mas continua dando o erro. Parece que o meu sistema está como que aberto em modo exclusivo.


    ronaldofacre
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 19/09/2015

    Re: [Resolvido]Comando para executar Consulta dá erro

    Mensagem  ronaldofacre em Sab 02 Abr 2016, 13:00

    Estava com o access 2003 instalado e isso estava dando algum conflito com o 2016. Desinstalei o 2003 e resolveu.

    Obrigado a todos!

      Data/hora atual: Ter 06 Dez 2016, 05:47