bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Consulta SQL dentro do código VBA

Consulta SQL dentro do código VBA

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

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.


 

 


3 comentário(s)

Valmir Teixeira Milhomem   29/12/2018 11:10:10

Boa tarde Professor.
Por favor gostaria de saber como faço para fazer calculo de percentagem usando campos de tabelas diferentes? Pois tenho um mini sistema em access 2010, que contem as tabelas de IMPOSTO DE RENDA com os campos CodAliquotaIRR, ValorIRR(São as Faixas do ISENTO até ao TETO MÁXIMO), AliquotaIRR, ValorDeduzirPorDependente, ValorTotalDependentes, ValorIntegralIRR, ValorPagarIRR(Que é ValorIntegralIRR-ValorTotalDepentes); Tabela ISSQN com os campos CodAliquotasISSQN, ALIQUOTAISSQN; Tabela ITENS com os campos CodItens, Descriminacao, Quantidade, ValorUnitario, ValorTotal, ValorISSQN, ValorLiquido. A minha intenção é que ao ser lançado a Quantidade*ValorUnitario ele já me der o valor total, tendo o valor total se este valor se encaixar aos VALORES FAIXA de cobrança do IRR ele irá multiplicar o VALOR TOTAL DA TABELA ITENS pela ALIQUOTAIRR contida na TABELA DE IMPOSTO DE RENDA, e me retornará o ValorIntegralIRR para este mesmo campo, daí faço VALORINTEGRALIRR-VALORTOTALDEPENDENTE e acharei o VALORPAGARIRR. Agora pegará o VALORTOTAL contido na TABELA ITENS e fará a multiplicação pela ALIQUOTAISSQN contida na TABELA DO ISSQN, que me retornará o valor o ISSQN para o campo ValorISSQN contido na TABELA ITENS obtendo estes valores como: [ValorTotal]-(ValorTotalPagarIRR]-[ValorISSQN] = ValorLiquidoReceber.

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??

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??


Envie seu comentário: