Microsoft Office Access giver programmører til at bruge Visual Basic for Applications ( VBA ) til at lave programmer i Access. VBA er en computer programmeringssprog, der anvendes til at automatisere rutineopgaver i Microsoft Office-programmer . Access er en relationel database system der almindeligvis anvendes til mindre databaser. En udvælgelsesforespørgsel bruges til at hente data fra en database tabel . En Recordset bruges til at læse indholdet returneres af udvælgelsesforespørgslen . I et par trin, du kan skrive VBA-kode til at oprette en tabel , og se indholdet gennem en udvælgelsesforespørgsel . Instruktioner
1

Åbn Microsoft Office Access , klik på " Tom database " og derefter vælge "Opret ". Klik på " Database Tools " og derefter vælge "Visual Basic " for at åbne Microsoft Visual Basic vindue . Klik på "Indsæt "-feltet og vælg " Modul ".
2

Kopier og indsæt følgende kode i dit nye modul : Hej

Private Sub runSelectQuery ()

Dim db Som Database

Dim rcrdSet Som Recordset

Dim strSQL As String

Dim Xcntr As Integer

Set db = CurrentDb

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

DoCmd.RunSQL ( strSQL )

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

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

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

DoCmd . SetWarnings False

DoCmd.RunSQL ( strSQL )

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL =" Select selectQueryData * fra selectQueryData "

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

Set rcrdSet = db.OpenRecordset ( strSQL )

rcrdSet.MoveLast

rcrdSet . MoveFirst

Xcntr = 0 Til rcrdSet.RecordCount - 1

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

rcrdSet.Fields ( " Apt "). Value

rcrdSet.MoveNext

Næste Xcntr

rcrdSet.Close

db.Close

End Sub
3

Tryk på " F5 " for at køre din subrutine . Programmet vil oprette en tabel , skal du indsætte data i tabellen og bruge en udvælgelsesforespørgsel til at vise data for en bestemt række.