... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Consulta SQL dentro do código VBA

Usuário Rodrigo:

Bom dia!

Preciso de algo simples, mas que está muito difícil para eu fazer.

Já passei horas procurando e testando um monte de códigos, e nada.

Criei no meu formulário um botão denominado BtnSQL para chamar a consulta abaixo. Como fica o código VBA para isso?

("SELECT Nome, Cdc FROM TabClientes")

Grato!

Suporte:

Rodrigo, crie a consulta no modo gráfico. Depois é só chamar pelo VBA, através do comando DoCmd. Exemplo:

DoCmd.OpenQuery "NomeDaConsulta"

Você também pode criar a consulta, via VBA, e então abrir pelo comando DoCmd.  Veja o procedimento oferecido:

Public Sub btnSql_Click()
Dim qdf As DAO.QueryDef
Dim mySql As String
On Error Resume Next
'Deleta a consulta criada no modo gráfico
DoCmd.DeleteObject acQuery, "qryTemp"
mySql = "SELECT Nome, Cdc FROM TabClientes;"
'Cria a consulta no modo gráfico
Set qdf = CurrentDb.CreateQueryDef("qryTemp", mySql)
Set qdf = Nothing
'Abre a consulta criada
DoCmd.OpenQuery "qrytemp"
End Sub

Usuário Rogerio:

Obrigado, Mestre Avelino, pela dica de criar consulta totalmente via VBA.

Abraço.


 

 


2 comentário(s)

arilson   19/03/2018 06:51:50

'Deleta a consulta criada no modo gráfico
DoCmd.DeleteObject acQuery, "qryTemp"

Boa tarde Mestre Avelino. 1º - Fiquei sem entender O que é uma Consulta Gráfica.

2ª - Será que este Código (DoCmd.DeleteObject acQuery, "qryTemp") cria uma tabela Temporária??

arilson   19/03/2018 06:51:51

'Deleta a consulta criada no modo gráfico
DoCmd.DeleteObject acQuery, "qryTemp"

Boa tarde Mestre Avelino. 1º - Fiquei sem entender O que é uma Consulta Gráfica.

2ª - Será que este Código (DoCmd.DeleteObject acQuery, "qryTemp") cria uma tabela Temporária??


Envie seu comentário: