Frågor är ett kraftfullt verktyg i Microsoft Access för att hämta information från en databas tabell och ha kunskap om hur man använder variabler i frågor kan göra din Access applikation mer dynamiskt . I VBA kan du bygga SQL-satser som innehåller variabler såsom String-variabler för att hämta data . När du bygger din SQL-sats kan du använda objektet Recordset för att hämta frågeresultat . Användarrecensioner variabler istället för att spendera tid att bygga många SQL-satser med hårdkodade kriterier . Saker du behöver
Northwind databas
Visa fler instruktioner
1
Börja med att skapa en ny sub förfarande med följande kod :
Private Sub useVariablesInQuery ( )
2
Skriv in följande kod för att skapa de variabler som du kommer att använda i din fråga :
Dim strSQL As String
Dim companyName As String
Dim lastName As String
Dim rst Som Recordset
Dim dbs som databas
Set dbs = CurrentDb
3
skriv följande för att definiera värdena på dina variabler som används i din fråga :
Företagsnamn = " Northwind Traders "
lastName = " Freehafer "
4
skriv efter att skapa en fråga med hjälp av variabler i föregående steg :
strSQL = " . . SELECT Employees.Company , anställda [ Efternamn ] , anställda [ förnamn ] , "
strSQL = strSQL & " Medarbetare . [ E - postadress] "
strSQL = strSQL & " FROM Anställda "
strSQL = strSQL & " WHERE ( ( ( Employees.Company ) = ' " & ( companyName ) & " ' ) "
strSQL = strSQL & " oCH ( ( Employees. [ Efternamn ] ) = ' " & ( lastName ) & " ' ) ) ; "
5
Skriv följande för att öppna ett Recordset och visa resultatet av din sökning:
Set rst = dbs.OpenRecordset ( strSQL ) katalog
Debug.Print rst.Fields ( 0 ) Värde < . br>
Debug.Print rst.Fields ( 1 ) . Standard
Debug.Print rst.Fields ( 2 ) . Standard
Debug.Print rst.Fields ( 3 ) . Standard
6
Skriv följande för att avsluta din sub förfarande :
rst.Close
dbs.Close
End sub
7
Tryck " F5 " för att köra koden .
