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 ExcelComo 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.
Respostas de 2
Olá Anson, estou tentando descobrir como, mas não consigo..... (aaargggghhh)
Tenho um MDB simples (accessDB) com uma tabela LoginUserDB
Há 3 campos: UserName UserShortName LastLogIn
UserShortName = um campo de data, os outros dois (UserName e UserShortName) são campos de texto
Qual será a melhor maneira, se eu quiser pesquisar tudo:
Nome de usuário = anson.antony
e atualizar o campo: UserShortName para XXX
e o campo LastLogIn para Format(Now, "DD.MM.YYYY") (data real)
Desculpe-me por incomodá-lo, mas eu testo de várias maneiras diferentes sem resultado....
Desde já, obrigado
Pedro
Resolvido = Obrigado e desculpe!