Spar tid ved hjelp av Visual Basic for Applications ( VBA ) for å kontrollere om en database spørring eksisterer. En spørring henter poster fra en eller flere databasetabeller. Det er tidkrevende å se gjennom en liste av spørsmål når du har hundrevis av dem i en database . VBA er et programmeringsspråk tilgjengelig i Microsoft Access for å automatisere rutineoppgaver som avgjør om en spørring eksisterer. Bruk QueryDef objektet tilgjengelig i VBA å sløyfe gjennom databaseobjekter, for eksempel spørringer. Instruksjoner
en

Last ned Microsoft Northwind 2007 database ( se Ressurser ) . Åpne databasen , velg "Database Tools " og klikk " Visual Basic. " Klikk på " Insert"-menyen og " Module" for å sette inn en ny kode modul
2

Skriv inn følgende for å opprette en prosedyre : .

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

Skriv inn følgende inne i prosedyren for å erklære variabler : en

Dim dBS Som Database

Dim qryItem As QueryDef

Dim qryFound Som Boolean

Dim qryName As String
4

Skriv inn følgende for å definere navnet på spørringen du leter etter : en

qryName = " Varelager "

Rediger " Varelager " og skriv inn navnet på spørringen
5

skriv inn følgende for å definere databasen som skal brukes: .
< p> Sett dBS = CurrentDb
6

Skriv inn følgende å sløyfe gjennom hver spørring objekt i databasen og sjekk om det er spørringen du leter etter : en

hver qryItem i dbs.QueryDefs
p Hvis qryItem.Name = qryName Deretter

qryFound = sant

End If

Neste
7

skriv inn følgende utsagn for å vise en meldingsboks hvis spørringen navnet ble funnet : en p Hvis qryFound = True Deretter

MsgBox qryName & " spørring eksisterer."

Else

MsgBox qryName & " spørring finnes ikke. "

End If

Trykk " F5 " for å kjøre prosedyren.