Opslaan tijd met behulp van Visual Basic for Applications ( VBA ) om te controleren of een database query bestaat. Een query haalt records uit een of meerdere database tabellen . Het is tijdrovend kijken door een lijst met vragen als je honderden van hen in een database. VBA is een programmeertaal beschikbaar in Microsoft Access aan routinematige taken, zoals het bepalen of een query bestaat automatiseren . Gebruik de QueryDef object beschikbaar in VBA voor het doorlussen van databaseobjecten, zoals query's . Instructies
1 Download de Microsoft Noordenwind 2007-database ( zie bronnen ) . Open de database , selecteert u " Database Tools" en klik op " Visual Basic . " Klik op het menu "Invoegen " en " Module " om een nieuwe code -module plaatsen
Type 2 het volgende om een procedure te maken: . Public Sub doesQueryExist
( ) op Druk op ' Enter '.
Type 3 de volgende in de procedure om uw variabelen op te geven : Dim dbs
Als Database Dim qryItem
als QueryDef Dim qryFound
zoals Van Boole Dim qryName
als Koord
Type 4 het volgende om de naam van de query te definiëren die u zoekt :
qryName = " Inventory "
bewerken " Inventory " en typ de naam van de query
5 typ het volgende om de database te definiëren om te gebruiken : .
Set dbs = CurrentDb
Type 6 de volgende om lus door elke zoekopdracht object in de database en controleer of het is de vraag die u zoekt :
voor Elke qryItem in dbs.QueryDefs
Als qryItem.Name = qryName qryFound dan
= True Eind
Als
Volgende
7 typ de volgende verklaring van een bericht wilt weergeven wanneer de query naam werd gevonden :
Als qryFound = True MsgBox qryName & dan
" vraag bestaat . "
Else < br > MsgBox qryName & " vraag bestaat niet . " End
Als Druk op " F5 "
om de procedure uit te voeren.
< br > |
