hur man kommer åt och köra en urvalsfråga i VBA

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åga används för att hämta data från en databastabell . Ett Recordset används för att läsa innehållet som returneras av urvalsfrågan . I några få steg kan du skriva VBA- kod för att skapa en tabell och visa dess innehåll genom en urvalsfråga .
1
Öppna Microsoft Office Access , klicka på ” tom databas ”och välj sedan . ”Skapa ”. Klicka på ” Databasverktyg ”och välj sedan ”Visual Basic ”för att öppna Microsoft Visual Basic -fönstret . Klicka på ” Infoga ” och välj ” Module ”.
2
Kopiera och klistra in följande kod på din nya modulen .

Private Sub runSelectQuery ( )

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 )

strSQL=” INSERT INTO selectQueryData ( NumField , arrendator Apt ) ”

strSQL=strSQL ” VALUES ( 1, John ”, ” A &#039);”

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )

strSQL=” INSERT INTO selectQueryData ( NumField , arrendator Apt ) ”

strSQL=strSQL ” VALUES (2 , ” Susie ”, ” B &#039);”

DoCmd. SetWarnings Falska

DoCmd. RunSQL ( strSQL )

strSQL=” INSERT INTO selectQueryData ( NumField , arrendator Apt ) ”

strSQL=strSQL ” VALUES (3 , ” Luis ”, ” C &#039);”

DoCmd . SetWarnings Falska

DoCmd. RunSQL ( strSQL )

strSQL=” Select selectQueryData . * från selectQueryData ”

strSQL=strSQL ” WHERE selectQueryData. Tenant=&#039 Luis &#039 ; ”

Set rcrdSet=db. OpenRecordset ( strSQL )

rcrdSet. MoveLast

rcrdSet. MoveFirst

För Xcntr=0 till rcrdSet. RecordCount-1

MsgBox ” Hyresgäst: ” rcrdSet. Fields ( ” Hyresgäst ” ) Value ” , Bor i apt : ” .
_
rcrdSet . Fält ( ” Apt ” ) . Value

rcrdSet. MoveNext

Nästa Xcntr

rcrdSet. Close

db. Close

End Sub
3 .
Press ”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 .