Microsoft Office Access tillåter programmerare att använda Visual Basic for Applications ( VBA ) för att skapa applikationer i Access . VBA är en dator programmeringsspråk som används för att automatisera rutinuppgifter i Microsoft Office-program . Access är en relationsdatabas som vanligen används för mindre databaser . En urvalsfrågan används för att hämta data från en databas tabell . En Recordset används för att läsa innehållet returneras av urvalsfrågan . I några steg du kan skriva VBA-kod för att skapa en tabell och visa dess innehåll genom en urvalsfråga . Instruktioner
1
Öppna Microsoft Office Access , klicka på " Tom databas , " välj sedan " Skapa ". Klicka på " Databas Verktyg " och välj sedan " Visual Basic " för att öppna Microsoft Visual Basic fönster . Klicka på " Infoga "-fältet och välj " Modul . "
2
Kopiera och klistra in följande kod på din nya modulen :
Private Sub runSelectQuery ( ) katalog
Dim db som databas
Dim rcrdSet Som Recordset
Dim strSQL As String
Dim Xcntr As Integer
Set db = CurrentDb
strSQL = " CREATE TABLE selectQueryData ( NumField NUMMER , Tenant TEXT , Apt TEXT ) , "
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO selectQueryData ( NumField , Tenant , Apt ) "
strSQL = strSQL & " VALUES ( 1 , ' John ' , ' A ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO selectQueryData ( NumField , Tenant , Apt ) "
strSQL = strSQL & " VALUES ( 2 , " Susie " , " B " ) ; "
DoCmd . SetWarnings False
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " INSERT INTO selectQueryData ( NumField , Tenant , Apt ) "
strSQL = strSQL & " VALUES (3, ' Luis ' , ' C ' ) ; . "
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) katalog
strSQL = " Select selectQueryData * från selectQueryData "
strSQL = strSQL & " WHERE selectQueryData.Tenant = ' Luis ' , "
Set rcrdSet = db.OpenRecordset ( strSQL ) katalog
rcrdSet.MoveLast
rcrdSet . MoveFirst
För Xcntr = 0 att rcrdSet.RecordCount - 1
MsgBox " Tenant : " & rcrdSet.Fields ( " Tenant " ) Value & " , bor i apt : " & _ < . br >
rcrdSet.Fields ( " Apt " ) . Value
rcrdSet.MoveNext
Nästa Xcntr
rcrdSet.Close
db.Close
End Sub
3
Tryck " F5 " för att köra din subrutin . Programmet kommer att skapa en tabell , infoga data i tabellen och använda en urvalsfråga för att visa data för en viss rad .
