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

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

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: