Código VBA para executar a consulta do Access

Código VBA para executar uma consulta do Access
Índice

Código VBA para executar uma consulta do Access (com imagem)

O que é isso?

Esse código VBA ajuda você a executar o Acesso de qualquer uma das ferramentas compatíveis com VBA, como MS Excel, Word etc.

Por que isso acontece?

Você pode evitar o processo de abrir o banco de dados e executar a consulta manualmente; esse código será executado até mesmo a partir de uma planilha do Excel sem abrir o banco de dados do Access manualmente.

Se você usar a opção Importar Resultados da consulta de acesso discutido na postagem anterior, você obtém até mesmo os resultados da consulta no Excel, tudo em apenas um clique.

Código VBA para importar dados de tabela/consulta do Access para o Excel

Como usar o código VBA para executar uma consulta do Access




Passo 1: Copie e cole o código abaixo em seu módulo.
Dim myDB As Database
Definir myDB = OpenDatabase("C:\MYDATABASE.mdb") Mencione o caminho do banco de dados e substitua "MYDATABASE" pelo nome do banco de dados do Access
myDB.Execute "myQuery"  Substitua "myQuery" pelo nome de sua consulta do Access
myDB.close Use isso somente se você quiser fechar o DB
Passo 2: Clique no botão Executar ou em F5 para executar a consulta do Access.

Código Vba para executar consulta de acesso

Anson Antônio
Anson Antônio
Anson é autor colaborador e fundador da www.askeygeek.com. Aprender algo novo sempre foi sua paixão, ASKEYGEEK.com é o resultado de sua paixão por tecnologia e negócios. Ele tem uma década de experiência versátil em terceirização de processos de negócios, finanças e contabilidade, tecnologia da informação, excelência operacional e inteligência de negócios. Durante sua gestão, ele trabalhou para organizações como Genpact, Hewlett Packard, M*Modal e Capgemini em diversas funções e responsabilidades. Fora dos negócios e da tecnologia, ele é um cinéfilo que passa horas juntos assistindo e aprendendo Cinema e também Cineasta!

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Parabéns!
Você conseguiu,
Não feche!
Digite sua chance de ganhar 100.000 créditos de personagem UberTTS
Agradecemos a sua visita!

Este pop-up não vai aparecer você decide de novo!!!

Ovo de Páscoa UberTTS 100K
Share to...