[Resolvido]Comando para executar Consulta dá erro

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

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

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.

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.

JPaulo,

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

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

Obrigado a todos!