Saber como salvar uma consulta usando o Visual Basic for Applications no Microsoft Access você pode economizar tempo ao criar várias consultas . Access é um aplicativo de banco de dados relacional utilizado principalmente para pequenos bancos de dados locais. VBA foi desenvolvido pela Microsoft e é comumente usado para automatizar tarefas rotineiras dentro de aplicativos do Microsoft Office . No Access, uma consulta VBA é usado para abrir um ou mais quadros para acessar seus dados para posterior manipulação. Instruções
1

Clique em "Ferramentas de banco de dados " no Microsoft Access 2007 e selecione " Visual Basic " para abrir a janela do Microsoft Visual Basic. Clique no menu "Inserir" e selecione " Módulo " para criar " Module1 ".
2

Type " Public Sub myVBAQuery " e pressione " Enter" para criar uma nova sub-rotina.

digite o seguinte para declarar as variáveis ​​:

Dim strSQL as String

Dim dbs as Database

Dim rst Como Recordset

Dim rstCnt as Integer < br >
3

Digite o seguinte para definir sua consulta e abrir o conjunto de registros:

Set dbs = CurrentDb

strSQL = " . selecione Tabela 1 * FROM tabela 1 ; "

Set rst = dbs.OpenRecordset ( strSQL )
4

Digite o seguinte para percorrer o conjunto de registros de dados de exibição armazenados no campo "1" na sua tabela :

rst.MoveFirst

Para rstCnt = 0 To rst.RecordCount

MsgBox rst.Fields (1). Valor

rst.MoveNext

Próxima rstCnt

Pressione "Ctrl + S" para salvar o seu sub-rotina em " Module1 " e ele estará disponível para você usar no futuro.