Microsoft Access , que faz parte da suíte Microsoft Office , é um programa para criação e gerenciamento de dados. Visual Basic for Applications (VBA) é uma linguagem de script que desenvolvedores do Office usa para executar operações em que os dados , incluindo consultas que exigem a intervenção do usuário pouca ou nenhuma . Execução de consultas em VBA permite aos desenvolvedores escrever programas capazes de produzir os dados dos programas precisam ser executados . Por exemplo , eles podem escrever um programa VBA que gera automaticamente um relatório mensal mostrando fundos desembolsados ​​para os funcionários. Instruções
1

Abra um banco de dados no Access. Clique no ícone " Consulta de Design" , no menu " Criar " para iniciar uma nova consulta.
2

Clique duas vezes no primeiro item na caixa de diálogo " Mostrar tabela " que aparece para especificar a tabela de que você quer fazer uma consulta.
3

clique duas vezes o caractere " * " na pequena janela que exibe os nomes de todos os campos da tabela que você escolheu para consultar . Esta ação cria uma consulta que recupera dados de todos os campos da tabela de uma só vez . Anote o nome de qualquer um dos campos da tabela (exceto o asterisco). Sua consulta VBA informará os dados para este campo .
4

Pressione "Ctrl + S" para exibir a caixa de diálogo solicitando o nome da consulta. Digite " Query1 " e clique em "OK" para salvar a consulta .
5

Pressione " Alt + F11 " para entrar no Visual Basic ambiente de desenvolvimento integrado (IDE) e , em seguida, clique no item "Module" no menu " Inserir" . Isso produz uma nova janela de código no qual você pode digitar o seu programa.
6 Digite ou cole o programa que segue em qualquer lugar na janela do novo módulo de código

. Digite sobre o texto " YOUR_FIELD_NAME " com o nome do campo que você anotou na etapa 3.

Public Sub RunQuery ()

Const cstrQueryName = " Query1 "

Dim dbs Como DAO.Database

Dim rst Como DAO.Recordset

Set dbs = CurrentDb
'

registros Abrir em consulta
existente

Set rst = dbs . OpenRecordset ( cstrQueryName )

'Loop através de todos os registros

Do While Not rst.EOF

Debug.Print rst ! [ YOUR_FIELD_NAME ]

rst.MoveNext

loop

'Fecha o conjunto de registros e banco de dados

rst.Close

dbs.Close

End Sub

a chamada para a função OpenRecordset corre sua consulta salvo ", Query1 ". As instruções entre o " Do While " para declarações " Loop" iteração (em outras palavras , circular) por cada um dos registros na tabela que você selecionou para consultar . A afirmação " debug.print " exibe os dados do registro para o campo que você escolheu.
7

Clique em qualquer lugar dentro da sub-rotina " RunQuery " você acabou de escrever e , em seguida, pressione "F5" para executar a sub-rotina. Pressione "Ctrl + G" para visualizar a janela " imediata" do IDE ( se não é já visível) . A janela irá mostrar todos os registros para o campo que você escolheu.