Spara tid med Visual Basic for Applications ( VBA ) för att kontrollera om en databas fråga existerar . En fråga hämtar poster från en eller flera databastabeller . Det är tidskrävande tittar genom en lista av frågor när du har hundratals av dem i en databas . VBA är en dator programmeringsspråk finns i Microsoft Access för att automatisera rutinuppgifter såsom avgöra om en fråga existerar . Använd QueryDef objektet finns i VBA för att loopa igenom databasobjekt som frågor . Instruktioner
1
Hämta Microsoft Northwind 2007-databas ( se Resurser ) . Öppna databasen , välj "Database Tools " och klicka på " Visual Basic . " Klicka på " Infoga " -menyn och " modul " för att infoga en ny kodmodul
2
Skriv följande för att skapa ett förfarande : .
Public Sub doesQueryExist ( ) katalog
Tryck " Enter ".
3
Skriv följande inne i förfarande för att deklarera dina variabler :
Dim dbs som databas
Dim qryItem som QueryDef
Dim qryFound As Boolean
Dim qryName As String
4
Skriv följande för att ange namnet på den fråga du letar efter :
qryName = " Inventory "
Redigera " Inventory " och skriv namnet på din fråga
5
skriv följande för att definiera databas som ska användas : .
Set dbs = CurrentDb
6
Skriv följande för att loopa igenom varje fråga objektet i databasen och kolla om det är den fråga som du letar efter :
för varje qryItem i dbs.QueryDefs
Om qryItem.Name = qryName Sedan
qryFound = Sant
End If
Nästa
7
skriv följande uttalande för att visa en meddelanderuta om frågan namn hittades :
p Om qryFound = sant då
MsgBox qryName & " query existerar . "
Else
MsgBox qryName & " fråga existerar inte . "
End If
Tryck " F5 " för att köra proceduren .
