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é 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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:
Faça o login aqui para ter acesso ao código.
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/2023 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/2023 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/2023 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?? |
