Microsoft Access , Teil der Microsoft Office-Suite , ist ein Programm zur Erstellung und Verwaltung von Daten . Visual Basic für Applikationen ( VBA) ist eine Skriptsprache , die Office-Entwickler verwenden, um Operationen auf diesen Daten , einschließlich Abfragen, die wenig oder kein Benutzereingriff erfordern durchzuführen. Ausführen von Abfragen in VBA ermöglicht es Entwicklern, Programme in der Lage, die Daten die Programme ausführen müssen, produzieren zu schreiben. Zum Beispiel können sie schreiben, ein VBA- Programm, das automatisch einen monatlichen Bericht, der ausgezahlten Mittel an die Mitarbeiter. Anleitung
1

Öffnen Sie eine vorhandene Datenbank in Access. Klicken Sie auf die "Query Design" -Symbol in der Menü "Erstellen" , um eine neue Abfrage starten.
2

Doppelklicken Sie auf das oberste Element in der " Tabelle anzeigen " Dialogfeld, um die Tabelle aus angeben erscheint was Sie wollen , um eine Abfrage zu machen.
3

Doppelklicken Sie auf das Zeichen "*" in dem kleinen Fenster , das die Namen aller Felder in der Tabelle, die Sie gewählt haben , um abzufragen zeigt . Diese Aktion erstellt eine Abfrage, die Daten aller Felder der Tabelle auf einmal holt . Notieren Sie sich den Namen nach einem der Felder der Tabelle (mit Ausnahme der Sternchen) . Ihre VBA Abfrage meldet die Daten für dieses Feld.
4

Drücken Sie "Strg + S ", um das Dialogfeld mit der Aufforderung der Abfrage Namen anzuzeigen. Type " Query1 " und klicken Sie dann auf "OK" , um die Abfrage zu speichern.
5

Presse "Alt + F11 ", um den Visual Basic integrierten Entwicklungsumgebung ( IDE) eingeben und dann auf die "Module" Artikel unter dem Menü "Einfügen" . Dies erzeugt eine neue Code-Fenster , in dem Sie Ihr Programm eingeben können.
6

Geben oder fügen Sie das Programm, das überall folgt in den neuen Code Moduls Fenster . Typ über den Text " YOUR_FIELD_NAME " mit dem Namen des Feldes, das Sie notierte in Schritt 3 .

Public Sub runQuery ()

Const cstrQueryName = " Query1 "

Dim dbs Wie DAO.Database

Dim rst als DAO.Recordset

Set dbs = CurrentDb

'Open Recordset auf vorhandene Abfrage

Set rst = DBS . OpenRecordset ( cstrQueryName )

'Schleife durch alle Datensätze

Do While Not rst.EOF

Debug.Print rst ! [ YOUR_FIELD_NAME ]

rst.MoveNext

Schleife

' Schließen des Recordsets und Datenbank fÃ

rst.Close

dbs.Close

End Sub