Wissen, wie man durch die Datensätze aus einer Datenbank -Tabelle mit einer Abfrage in Microsoft Office Access suchen können sparen Sie Zeit bei der Suche nach einem bestimmten Text in einer Spalte. Visual Basic für Applikationen , die auch als VBA bekannt, ist eine Programmiersprache, die verwendet werden, um Routineaufgaben in Microsoft Access und andere MS Office-Anwendungen automatisieren. Access ist ein relationales Datenbank- Management-System verwendet werden, um kleine Datenbanken entwerfen. Eine Abfrage wird verwendet, um Informationen aus einer Datenbank -Tabelle abzurufen. Anleitung
1

Öffnen Sie die Nordwind Microsoft Office Access-Datenbank. Die Nordwind-Datenbank wird der Microsoft Office-Suite enthalten.
2

Klicken Sie auf " Database Tools ", dann wählen Sie " Visual Basic ", um den Microsoft Visual Basic -Fenster zu öffnen. Klicken Sie auf " Insert "-Feld und wählen Sie " Module".
3

Geben Sie den folgenden , um eine neue Subroutine erstellen :

Private Sub searchRecords ()
< p > Drücken Sie "Enter".
4

Geben Sie den folgenden , um die "rst " Variable zu erstellen , Sie werden es nutzen, um ein neues Recordset öffnen:

Dim rst als Recordset

Geben Sie den folgenden , um die " DBS " Variable zu erstellen , Sie werden sie nutzen, um die aktuelle Datenbank identifizieren :

Dim dbs As Database

Geben Sie den folgenden , um die " Suchzeichenfolge " Variable zu erstellen , Sie werden es verwenden, um Zeichen, die Sie in den Datensatz zu suchen aussehen halten :

Dim Suchzeichenfolge As String

Geben Sie den folgenden , um die aktuelle Datenbank als Datenbank eingestellt, um in dieser Subroutine verwenden :

Set dbs = CurrentDb
5

Geben Sie den folgenden , um die Zeichenfolge, die Sie verwenden , um die Datensätze von der Abfrage zurückgegeben gesucht wird , unter dem Namen " Daniel " als Beispiel definieren :

Suchzeichenfolge = " Daniel"
6

Geben Sie den folgenden ein neues Recordset und Abfrage der Tabelle "Customers" zu öffnen:

Set rst = dbs.OpenRecordset ( "SELECT * FROM Kunden Kunden . " )

bearbeiten Sie die folgende Codezeile eine andere Tabelle abzufragen :

Set rst = dbs.OpenRecordset ( "SELECT * FROM < . ; Tabelle name> " )

Geben Sie den folgenden , um zum ersten Datensatz der Abfrage-Ergebnisse zu verschieben:

rst.MoveFirst
7

Geben Sie den folgenden in einer Schleife durch das Recordset durch Erhöhen des Recordset Position und die Suche nach " Daniel" in der "Vorname" Spalte :

Do While Not rst.EOF

Wenn rst.Fields ( "Vorname" ) . & rst.AbsolutePosition

rst.MoveLast

Else

: Value = Suchzeichenfolge Dann

MsgBox & Suchzeichenfolge & " in Rekordzahl " " gefunden" rst.MoveNext

End If

Schleife

für andere Arten von Zeichen in einer anderen Spalte durchsuchen , bearbeiten die folgenden Codezeilen :

Suchzeichenfolge = " "

Wenn rst.Fields ( " " ) . Value = Suchzeichenfolge Dann
8

Geben Sie den folgenden freizugeben Variablen aus dem Speicher :

rst.Close

dbs.Close

Presse "F5" auf Ihrer Unterroutine ausführen
< . br>