Variablen in einer Access-VBA-Abfrage veranschaulicht

Abfragen sind ein mächtiges Werkzeug in Microsoft Access zum Abrufen von Informationen aus einer Datenbanktabelle und die Kenntnis zum Variablen in Abfragen verwenden kann Ihrer Access-Anwendung mehr Dynamik. In VBA können Sie SQL-Anweisungen erstellen, die Variablen wie String-Variablen zum Abrufen von Daten enthalten. Sobald Sie Ihre SQL-Anweisung erstellen, dann können Sie das Recordset-Objekt zum Abrufen von Abfrageergebnissen. Benutzervariablen anstatt zu verbringen Zeit mit dem Aufbau viele SQL-Anweisungen mit hartcodierten Kriterien.

Anweisungen

1 Zunächst erstellen eine neue Sub-Prozedur mit dem folgenden Code:

Private Sub useVariablesInQuery()

2 Geben Sie den folgenden Code, um die Variablen zu erstellen, die Sie in der Abfrage verwendet werden:

Dim StrSQL As String

CompanyName As String Dim

LastName As String Dim

Dim Rst als Recordset

Dim Dbs als Datenbank

Eingestellt von Dbs = CurrentDb

3 Geben Sie Folgendes ein, um die Werte in der Abfrage verwendeten Variablen definieren:

CompanyName = "Nordwind"

LastName = "Freehafer"

4 Geben Sie Folgendes zum Erstellen einer Abfrage mit den Variablen in der vorherigen Schritt:

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

StrSQL = StrSQL & "Mitarbeiter. [E-mail-Adresse] "

StrSQL = StrSQL & "FROM Employees"

StrSQL = StrSQL & "wo (((Employees.Company)='" & (CompanyName) & "')"

StrSQL = StrSQL & "AND ((Mitarbeiter. [ Last Name]) ='"& (LastName) &"')); "

5 Geben Sie Folgendes ein, um ein Recordset zu öffnen und die Ergebnisse Ihrer Abfrage anzuzeigen:

Festlegen von Rst = Dbs. OpenRecordset(strSQL)

Debug.Print Rst. Fields(0). Wert

Debug.Print Rst. Fields(1). Wert

Debug.Print Rst. Konnten(2). Wert

Debug.Print Rst. Fields(3). Wert

6 Geben Sie Folgendes ein, um Ihren Sub-Prozedur zu beenden:

RST. Schließen

DBS. Schließen

EndSub

7 Mit "F5" zum Ausführen des Codes.