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?

You can avoid the process of opening the DB and executing the query manually; this code will execute even from an Excel sheet without opening the Access DB manually.

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




(adsbygoogle = window.adsbygoogle || []).push({});

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

Picture of Anson Antony
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!

Levante-se para 60.000 Créditos de personagem UberTTS de graça!!!

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

UberTTS
Share to...