Spar tid ved hjælp af Visual Basic for Applications ( VBA ) til at kontrollere , om en database forespørgsel eksisterer. En forespørgsel henter poster fra en eller flere databasetabeller. Det er tidskrævende at kigge gennem en liste af forespørgsler , når du har hundredvis af dem i en database. VBA er en computer programmeringssprog til rådighed i Microsoft Access til at automatisere rutineopgaver såsom at afgøre, om en forespørgsel eksisterer. Brug QueryDef objekt tilgængelige i VBA til at sløjfe gennem databaseobjekter såsom forespørgsler. Instruktioner
1

Hent Microsoft Northwind 2007-database (se Resources). Åbn databasen , vælg " Database Tools" og klik på " Visual Basic ". Klik på " Indsæt" menuen og " Module" for at indsætte en ny kode modul
2

Skriv følgende for at oprette en procedure .

Public Sub doesQueryExist ()
< p> Tryk på " Enter".
3

Skriv følgende inde i proceduren til at erklære dine variabler : Hej

Dim dbs som database

Dim qryItem Som QueryDef

Dim qryFound Som Boolean

Dim qryName As String
4

Skriv følgende for at definere navnet på den forespørgsel, du leder efter : Hej

qryName = " Inventory "

Edit " Inventory ", og skriv navnet på din forespørgsel
5

Skriv følgende for at definere den database at bruge: .
< p> Indstil dbs = CurrentDb
6

Skriv følgende at sløjfe gennem hver forespørgsel objekt i databasen og se om det er den forespørgsel, du leder efter : Hej

for Each qryItem In dbs.QueryDefs

Hvis qryItem.Name = qryName Så

qryFound = Sand

End If

Næste
7

Skriv følgende erklæring for at vise en besked boks , hvis forespørgslen navn blev fundet : Hej p Hvis qryFound = Sand Derefter

MsgBox qryName & " forespørgslen eksisterer. "

Else < br >

MsgBox qryName & " query ikke eksisterer. "

End If

Tryk på " F5 " for at køre proceduren.
< br >