Microsoft Office Access è un sistema di gestione di database relazionale spesso utilizzato per i database più piccoli . Visual Basic for Applications , noto anche come VBA , è un linguaggio di programmazione per computer utilizzato per automatizzare le attività manuali nelle applicazioni di Microsoft Office. Una query SQL è un'operazione comune eseguita per recuperare dati da una tabella. In pochi passi è possibile scrivere codice VBA per interrogare una tabella e visualizzare il numero di record attraverso una finestra di messaggio . Istruzioni
1

Avviare Microsoft Office Access e selezionare " Database vuoto ", quindi fare clic su "Crea ". Fare clic su "Strumenti database" e selezionare " Visual Basic ". Fare clic sul campo "Inserisci" e selezionare "Modulo ".
2

Copia e incolla il seguente codice VBA nel modulo :

getRecordCnt Private Sub ( ) per

dim rst come Recordset

dim db As Database dim

sqlstr As String

sqlstr = " CREATE TABLE CityInfo ( TESTO Città ( 25 ) , TESTO Stato ( 25) ) ; "

DoCmd.RunSQL ( sqlstr ) per

sqlstr =" INSERT INTO CityInfo ( [Città ], [ Stato ]) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr ) per

sqlstr =" INSERT INTO CityInfo ( [ Città ] , [ Stato ] ) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr ) per

sqlstr = "SELECT * FROM CityInfo CityInfo ; ».

Set rst = db.OpenRecordset ( sqlstr ) per

rst.MoveFirst

rst.MoveLast

MsgBox rst.RecordCount

End Sub
3

Premere " F5 " per eseguire la subroutine . Il codice crea una nuova tabella , aggiungere record ad esso , e aprire una serie di record.