Sparen Sie Zeit mit Visual Basic für Applikationen (VBA) , um zu überprüfen , ob eine Datenbank-Abfrage vorhanden ist. Eine Abfrage ruft Datensätze aus einer oder mehreren Datenbanktabellen . Es ist zeitaufwendig Blick durch eine Liste der Abfragen , wenn Sie Hunderte von ihnen in einer Datenbank haben . VBA ist eine Programmiersprache in Microsoft Access , um Routineaufgaben wie die Bestimmung , ob eine Abfrage existiert automatisieren. Verwenden Sie die QueryDef Objekt in VBA eine Schleife durch Datenbank-Objekte wie Abfragen . Anleitung
1
Laden Sie die Microsoft Northwind 2007-Datenbank ( siehe Ressourcen). Öffnen Sie die Datenbank , wählen Sie " Database Tools " und klicken Sie auf " Visual Basic ". Klicken Sie auf das Menü "Einfügen" und "Module" , um einen neuen Code-Modul einfügen
2
Geben Sie die folgende Prozedur , um eine zu erstellen : .
Public Sub doesQueryExist ()
< p> Press "Enter".
3
Geben Sie den folgenden innerhalb der Prozedur Ihre Variablen deklarieren: Dim dbs
As Database Dim
qryItem Wie QueryDef
Dim qryFound As Boolean Dim
qryName As String
4
Geben Sie den folgenden , um den Namen der Abfrage definieren Sie suchen :
qryName = " Inventar "
bearbeiten " Inventar " und geben Sie den Namen Ihrer Abfrage
5
Geben Sie den folgenden , um die Datenbank zu definieren, verwenden: .
< p> Set dbs = CurrentDb
6
Geben Sie den folgenden in einer Schleife durch alle Query-Objekt in der Datenbank und überprüfen, ob es die Abfrage nach dem Sie suchen ist :
For Each qryItem in dbs.QueryDefs
Wenn qryItem.Name = qryName Dann
qryFound = True
End If Next
7
Geben Sie die folgende Anweisung, um eine Nachricht anzuzeigen , wenn die Abfrage Name wurde gefunden:
Wenn qryFound = True Then MsgBox
qryName & "-Abfrage vorhanden ist. "
Else
MsgBox qryName & "-Abfrage ist nicht vorhanden. "
End If
Presse "F5" , um die Prozedur auszuführen .
