Microsoft Office Access er en relasjonsdatabase styringssystem ofte brukes til mindre databaser . Visual Basic for Applications , også kjent som VBA er et programmeringsspråk som brukes til å automatisere manuelle oppgaver i Microsoft Office-programmer . En SQL-spørring er en vanlig operasjon utført for å hente data fra en tabell . I noen få trinn kan du skrive VBA-kode til å spørre en tabell og vise antall poster gjennom en meldingsboks. Instruksjoner
en

start Microsoft Office Access og velg "Blank Database " klikk " Opprett". Klikk "Database Verktøy" og velg " Visual Basic. " Klikk på " Insert "-feltet og velg " Module ".
2

Kopier og lim inn følgende VBA kode i modulen : en

Private Sub getRecordCnt ( )

Dim rst Som Recordset

Dim db As Database

Dim SQLstr As String

SQLstr = "CREATE TABLE CityInfo (City TEKST ( 25 ) , State TEKST ( 25 ) ); "

DoCmd.RunSQL ( SQLstr )

SQLstr =" INSERT INTO CityInfo ( [Sted ], [ State ]) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )

SQLstr =" INSERT INTO CityInfo ( [Sted ] , [State ] ) "

SQLstr = SQLstr &" VERDIER ( Watauga ',' Texas '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )

SQLstr = "SELECT CityInfo * FROM CityInfo ; . "

Sett rst = db.OpenRecordset ( SQLstr )

rst.MoveFirst

rst.MoveLast

MsgBox rst.RecordCount

End Sub
3

Trykk " F5 " for å kjøre din subrutine . Koden vil opprette en ny tabell , legge til poster til det, og åpne en rekord satt .