Visual Basic for Applications (VBA) é uma linguagem de programação de computador projetado pela Microsoft e usado para automatizar tarefas de rotina no Access. Access é um sistema de gerenciamento de banco de dados relacional incluídos na suíte Microsoft Office. Uma consulta Structured Query Language (SQL) é usado para recuperar dados de uma tabela do banco de dados . Os resultados de uma consulta SQL de saída são acessados ​​por meio de um objeto Recordset. Em poucos passos você pode escrever código VBA para criar uma consulta SQL e visualizar os registros recuperados . Instruções
1

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

Clique em "Ferramentas de Banco de Dados ", selecione " Visual Basic" para abrir a janela do Microsoft Visual Basic . Clique no botão " Inserir" campo e selecione " Module ".
3

Copie e cole o seguinte código em seu novo módulo para ver o nome eo número de telefone da empresa na tabela "Cliente" :

Private Sub customerquery ()

Dim strSQL As String Dim

custRst Como Recordset

Dim dbs As Database

Dim rstCntr As Integer Dim

custStr As String

Set dbs = CurrentDb

strSQL = " SELECT Clientes . [ primeiro nome] , "

strSQL = strSQL & "Os clientes [ telefone da empresa ] . "

strSQL = strSQL & " FROM Clientes ";

Set custRst = dbs.OpenRecordset ( strSQL )

custRst.MoveLast

custRst.MoveFirst

Para rstCntr = 0 To custRst.RecordCount - . 1

custStr = custStr & custRst.Fields (0) Value & _

"é um cliente e seu telefone comercial é "& custRst.Fields (1). Value & vbCr

custRst.MoveNext

Próxima rstCntr

MsgBox custStr

custRst.Close

dbs.Close

End Sub
4

Execute sua sub-rotina com a tecla " F5 ".
< br >