Microsoft Office Access lar programmerere å bruke Visual Basic for Applications ( VBA ) for å lage applikasjoner i Access. VBA er et programmeringsspråk som brukes til å automatisere rutineoppgaver i Microsoft Office-programmer . Access er en relasjonsdatabase system som vanligvis brukes for mindre databaser . En utvalgsspørring brukes til å hente data fra en database tabell . En Recordset brukes til å lese innholdet returneres av utvalgsspørringen . I noen få trinn kan du skrive VBA -kode for å opprette en tabell og vise innholdet gjennom en utvalgsspørring . Instruksjoner
en

Åpne Microsoft Office Access , klikk " Blank Database ", velg deretter "Create ". Klikk på " Database Verktøy ", velg deretter " Visual Basic " for å åpne Microsoft Visual Basic -vinduet . Klikk på " Insert "-feltet og velg " Module ".
2

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

Private Sub runSelectQuery ( )

Dim db As Database

Dim rcrdSet Som Recordset

Dim strSQL As String

Dim Xcntr As Integer

Sett db = CurrentDb

strSQL = " CREATE TABLE selectQueryData ( NumField NUMMER , Tenant TEKST, Apt TEKST ),"

DoCmd.RunSQL ( strSQL )

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

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

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

DoCmd . VisAdvarsler False

DoCmd.RunSQL ( strSQL )

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL =" Velg selectQueryData * fra selectQueryData "

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

Set rcrdSet = db.OpenRecordset ( strSQL )

rcrdSet.MoveLast

rcrdSet . MoveFirst

For Xcntr = 0 For å rcrdSet.RecordCount - en

MsgBox " leietaker: " & rcrdSet.Fields ( " leietaker ") Value & " , bor i apt :" & _ < . br >

rcrdSet.Fields ( " Apt ") . Verdi

rcrdSet.MoveNext

Neste Xcntr

rcrdSet.Close

db.Close

End Sub
3

Trykk " F5 " for å kjøre din subrutine . Programmet vil opprette en tabell , sette inn data i tabellen og bruker en utvalgsspørring å vise data for en bestemt rad .