Saber como criar rapidamente uma consulta no Microsoft Access e , em seguida, usá-lo com o Visual Basic for Applications (VBA) você pode economizar tempo . Access é um sistema de gerenciamento de banco de dados relacional que está incluído no pacote do Microsoft Office . Uma consulta é usado para recuperar dados de uma tabela do banco de dados . VBA é uma linguagem de programação de computador que é usado para automatizar tarefas de rotina em Access e outros aplicativos do Microsoft Office . Em poucos passos você pode criar uma sub-rotina usando VBA para consultar dados da tabela Funcionários no banco de dados Northwind. Coisas que você precisa
Microsoft Office Access
Show Mais instruções
1

Abra o banco de dados Northwind Access. O banco de dados Northwind está incluído no pacote do Microsoft Office .
2

Clique em "Criar " e selecione " Design de Consulta. " Selecione a aba " tabelas" , selecione "Funcionários" e clique em "Adicionar ". Escolha "Fechar".
3

duplo clique em " Companhia", " Sobrenome " e " Nome " para adicionar campos. Selecione "SQL View" no painel " Resultados" . Pressione " Ctrl" e "C" para copiar a consulta seleção .
4

Clique em "Ferramentas de banco de dados " e , em seguida, selecione " Visual Basic ". Digite o seguinte para criar uma nova sub-rotina : " Enter".

Private Sub createVBAQuery ()

Imprensa
5

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

Dim strSQL As String

Dim rst Como Recordset

Dim dbs As Database

Set dbs = CurrentDb
6

Imprensa "Ctrl" e "V" para colar a consulta seleção dentro da sub-rotina. Adicionar " strSQL =" para o início de sua consulta e adicionar aspas finais até o fim de sua consulta da seguinte forma: . .

StrSQL = "SELECT Employees.Company , funcionários [Last Name ] , empregados [ Nome ] FROM Funcionários ; "
7

Digite o seguinte para abrir a consulta seleção e exibir os resultados

Set rst = dbs.OpenRecordset ( strSQL )

RST . . MoveLast

rst.MoveFirst

Do While Not rst.EOF

Debug.Print rst.Fields (0) Value & ".