Abfragen sind ein mächtiges Werkzeug in Microsoft Access , um Informationen aus einer Datenbank-Tabelle abrufen und mit dem Wissen , wie man Variablen in Abfragen verwenden können Sie Ihre Access-Anwendung dynamischer. In VBA können Sie bauen SQL-Anweisungen , die Variablen wie String-Variablen enthalten , um Daten abzurufen . Sobald Sie Ihre SQL -Anweisung zu erstellen , dann können Sie das Recordset-Objekt , um Abfrageergebnisse abzurufen. Benutzer Variablen anstatt Zeit Gebäude viele SQL-Anweisungen mit hartkodierte Kriterien . Things You
Nordwind
brauchen anzeigen Weitere Anweisungen
1

Erstellen Sie zunächst eine neue Sub-Prozedur mit dem folgenden Code : Private Sub

useVariablesInQuery ()
2

Geben Sie den folgenden Code, um die Variablen, die Sie in Ihrer Abfrage verwenden schaffen :

Dim strSQL As String Dim

companyName As String

Dim lastName As String Dim rst

Als Recordset Dim dbs

As Database Set dbs

= CurrentDb
3

Geben Sie den folgenden , um die Werte Ihrer Variablen in der Abfrage verwendet definieren :

companyName = " Nordwind "

lastName = " Freehafer "
4

Typ der nach , um eine Abfrage mit den Variablen im vorherigen Schritt erstellen :

strSQL = " . . SELECT Employees.Company , Mitarbeiter [ Nachname ] , Mitarbeiter [ Vorname ] , "

strSQL = strSQL & "Mitarbeiter . [E- Mail-Adresse] "

strSQL = strSQL & " FROM Employees "

strSQL = strSQL & "WHERE ((( Employees.Company ) = '" & ( companyName ) & " ') "

strSQL = strSQL & "AND ( ( Employees. [ Nachname ]) = '" & ( lastName ) & " ')); "
5 < p> Geben Sie den folgenden zu öffnen ein Recordset und die Ergebnisse Ihrer Abfrage :

Set rst = dbs.OpenRecordset ( strSQL ) Debug.Print

rst.Fields (0 ) Wert < . br>

Debug.Print rst.Fields (1). Wert

Debug.Print rst.Fields (2). Wert

Debug.Print rst.Fields (3). Wert
6

Geben Sie die folgende Prozedur , um Ihre Sub Ende :

rst.Close

dbs.Close

End Sub