Microsoft Office Access ist ein relationales Datenbank -Management-System häufig für kleinere Datenbanken verwendet. Visual Basic für Applikationen , die auch als VBA bekannt, ist eine Programmiersprache verwendet werden, um manuelle Aufgaben in Microsoft Office-Anwendungen automatisieren. Eine SQL-Abfrage ist eine gemeinsame Operation durchgeführt werden, um Daten aus einer Tabelle abzurufen. In wenigen Schritten können Sie VBA-Code schreiben , um eine Tabelle abzufragen und zeigt die Anzahl der Datensätze durch eine Message-Box . Anleitung
1

Starten Sie Microsoft Office Access , und wählen Sie " Leere Datenbank " klicken Sie dann auf " Erstellen". Klicken Sie auf " Database Tools " und wählen Sie " Visual Basic. " Klicken Sie auf " Insert "-Feld und wählen Sie " Module".
2

Kopieren Sie den folgenden VBA- Code in das Modul :

Private Sub getRecordCnt ()

Dim rst als Recordset Dim db

As Database Dim

sqlstr As String

sqlstr = " CREATE TABLE CityInfo (Stadt TEXT ( 25) , Bundesland TEXT ( 25) ); "

DoCmd.RunSQL ( sqlstr )

sqlstr =" INSERT INTO CityInfo ( [City ], [ State] ) "

sqlstr = sqlstr & " VALUES (' Arlington ',' Texas '); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( sqlstr )

sqlstr =" INSERT INTO CityInfo ( [City ], [ State] ) "

sqlstr = sqlstr & " VALUES (' Watauga ', ' Texas '); "

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( sqlstr )

sqlstr = "SELECT * FROM CityInfo CityInfo ; . "

Set rst = db.OpenRecordset ( sqlstr )

rst.MoveFirst

rst.MoveLast

MsgBox rst.RecordCount

End Sub
3

Presse "F5" auf Ihrer Unterroutine ausführen . Der Code wird eine neue Tabelle erstellen , hinzuzufügen , um es , und öffnen Sie einen Datensatz .