Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional , muitas vezes usado para bancos de dados menores . Visual Basic for Applications , também conhecido como VBA, é uma linguagem de programação de computador utilizado para automatizar tarefas manuais em aplicativos do Microsoft Office . Uma consulta SQL é uma operação comum realizada para recuperar dados de uma tabela. Em poucos passos você pode escrever código VBA para consultar uma tabela e exibir o número de registros por meio de uma caixa de mensagem. Instruções
1

Comece Microsoft Office Access e selecione " Banco de Dados em Branco " , em seguida, clique em "Criar ". Clique em "Ferramentas de banco de dados " e selecione "Visual Basic". Clique no botão " Inserir" campo e selecione
2

Copiar e colar o seguinte código VBA em seu módulo "Módulo ". :

Private Sub getRecordCnt ()

Dim rst Como Recordset

Dim db As Database

Dim sqlstr As String

sqlstr = " CREATE TABLE CityInfo (Cidade TEXT ( 25) , TEXT Estado (25) ); "

DoCmd.RunSQL ( sqlstr )

sqlstr =" INSERT INTO CityInfo ( [City ], [ Estado ] ) "

sqlstr = sqlstr &" VALUES (' Arlington ',' Texas '); "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( sqlstr )

sqlstr =" INSERT INTO CityInfo ( [City ], [ Estado ] ) "

sqlstr = sqlstr &" VALUES (' Watauga ', ' Texas '); "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( sqlstr )

sqlstr = "SELECT * FROM CityInfo CityInfo ; . "

Set rst = DB.OpenRecordSet ( sqlstr )

rst.MoveFirst

rst.MoveLast

MsgBox rst.RecordCount

End Sub
3

Pressione " F5" para executar o seu sub-rotina. O código irá criar uma nova tabela, adicionar registros a ele, e abrir um conjunto de registros.