Microsoft Office Access permite que os programadores a usar o Visual Basic for Applications (VBA) para criar aplicativos em Access. VBA é uma linguagem de programação de computador utilizado para automatizar tarefas de rotina em aplicativos do Microsoft Office . O acesso é um sistema de banco de dados relacional comumente usado para bancos de dados menores . Uma consulta seleção é usado para recuperar dados de uma tabela do banco de dados . Um conjunto de registros é usado para ler o conteúdo retornado pela consulta seleção . Em poucos passos você pode escrever código VBA para criar uma tabela e exibir o seu conteúdo através de uma consulta seleção . Instruções
1

Abra o Microsoft Office Access , clique em "Banco de Dados em Branco ", em seguida, selecione " Criar". Clique em " Ferramentas de Banco de Dados ", selecione " Visual Basic" para abrir a janela do Microsoft Visual Basic . Clique no botão " Inserir" e selecione campo
2

Copie e cole o seguinte código em seu novo módulo "Módulo ". :

Sub runSelectQuery Privado ( )

Dim db As Database

Dim rcrdSet Como Recordset

Dim strSQL As String Dim

Xcntr As Integer

Set db = CurrentDb

strSQL = "CREATE TABLE selectQueryData ( NumField NÚMERO , Tenant texto, texto Apt) ; "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , Tenant , Apt) "

strSQL = strSQL & " VALUES ( 1 , ' John ', ' A') ;"

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , Tenant , Apt) "

strSQL = strSQL & " VALUES ( 2 , ' Susie ', 'b ' ); "

DoCmd . SetWarnings Falso

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO selectQueryData ( NumField , Tenant , Apt) "

strSQL = strSQL & " VALUES (3, ' Luis ',' C '); ".

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( strSQL )

strSQL = " Select * from selectQueryData selectQueryData "

strSQL = strSQL & "ONDE selectQueryData.Tenant = ' Luis '; "

Set rcrdSet = DB.OpenRecordSet ( strSQL )

rcrdSet.MoveLast

rcrdSet . MoveFirst

Para Xcntr = 0 To rcrdSet.RecordCount - 1

MsgBox " Tenant :" & rcrdSet.Fields ( " inquilino " ) Valor & ", Mora em apt :" & _ < . br>

rcrdSet.Fields ( " Apt " ) . Valor

rcrdSet.MoveNext

Próxima Xcntr

rcrdSet.Close

db.Close

End Sub
3

Pressione " F5" para executar o seu sub-rotina. O programa irá criar uma tabela, inserir dados na tabela e usar uma consulta seleção para exibir dados para uma linha particular.