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 mesmo a partir de um arquivo Excel sem abrir a planilha do Access DB 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
(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
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.
Respostas de 2
Hello Anson, try to find out how, but I can’t….. (aaargggghhh)
I have a simple MDB (accessDB) with one table LoginUserDB
There are 3 fields: UserName UserShortName LastLogIn
UserShortName = a date field, the other two (UserName & UserShortName) are text fields
What will be the best way, if I want to search for all:
UserName = anson.antony
and update on that all, the field: UserShortName to XXX
and the field LastLogIn to Format(Now, “DD.MM.YYYY”) (actual date)
Sorry for bothering you, but I test so different ways without result….
Thanks in advance
Pedro
Resolved = Thanks and sorry !