Wissen, wie man schnell eine Abfrage in Microsoft Access und verwenden sie dann mit Visual Basic für Applikationen ( VBA) können Sie Zeit sparen . Access ist ein relationales Datenbank-Management -System, das in der Microsoft Office-Suite enthalten ist. Eine Abfrage wird verwendet, um Daten aus einer Datenbank -Tabelle abzurufen. VBA ist eine Programmiersprache , die verwendet werden, um Routineaufgaben in Access und anderen Microsoft Office-Anwendungen automatisieren wird . In wenigen Schritten können Sie eine Subroutine mit VBA zur Abfrage von Daten aus der Employees- Tabelle in der Northwind-Datenbank . Things You
Microsoft Office Access
brauchen anzeigen Weitere Anweisungen
1
Öffnen Sie die Nordwind- Access-Datenbank. Die Nordwind-Datenbank wird der Microsoft Office-Suite enthalten.
2
Klicken Sie auf " Erstellen" und wählen Sie "Query -Entwurf. " Wählen Sie den "Tables ", wählen Sie "Mitarbeiter" und klicken Sie dann auf "Hinzufügen". Wählen Sie "Schließen".
3
Doppelklicken Sie auf " Unternehmen", " Nachname " und " Vorname " , um Felder hinzuzufügen . Wählen Sie " SQL-Ansicht " in der " Ergebnisse " angezeigt. Drücken Sie "Strg" und "C ", um die Select-Abfrage kopieren.
4
Klicken Sie auf " Database Tools " und wählen Sie dann " Visual Basic ". Geben Sie den folgenden , um eine neue Subroutine erstellen : " . Geben Sie "
Private Sub createVBAQuery ()
Press
5
Geben Sie den folgenden Ihre Variablen deklarieren:
Dim strSQL As String Dim rst
Als Recordset Dim dbs
As Database Set dbs
= CurrentDb
6
Press "Strg" und "V" zum Einfügen der SELECT-Abfrage innerhalb des Unterprogramms . In " strSQL =" an den Anfang Ihrer Abfrage, und fügen Ende Anführungszeichen an das Ende Ihrer Anfrage wie folgt: . .
StrSQL = "SELECT Employees.Company , Mitarbeiter [ Nachname ] , Mitarbeiter [ Vorname ] FROM Employees; . "
7
Geben Sie den folgenden , um Ihren Select-Abfrage zu öffnen und die Ergebnisse für das
Set rst = dbs.OpenRecordset ( strSQL )
rst . MoveLast
rst.MoveFirst
Do While Not rst.EOF
Debug.Print rst.Fields (0) Value & . "
