Risparmia tempo utilizzando Visual Basic, Applications Edition (VBA ) per verificare se una query di database esiste . Una query recupera i record dalle tabelle del database uno o più . E ' tempo guardando attraverso un elenco di query quando si hanno centinaia di loro in un database . VBA è un linguaggio di programmazione di computer disponibili in Microsoft Access per automatizzare le attività di routine, come la determinazione se una query esistente . Utilizzare l'oggetto QueryDef disponibile in VBA per eseguire il ciclo di oggetti di database , quali query . Istruzioni
1

scaricare il database Northwind di Microsoft 2007 ( vedi Risorse ) . Aprire il database , selezionare " Database Tools " e cliccate su " Visual Basic ". Fai clic sul menu "Inserisci" e "Modulo" per inserire un nuovo modulo di codice
2

digitare quanto segue per creare una procedura : .

Pubblico doesQueryExist Sub ( ) per < p > Premere il tasto " Enter ".
3

Digitare il seguente all'interno della procedura per dichiarare le variabili :

Dim dbs As Database Dim

qryItem come QueryDef

Dim qryFound come booleano

Dim qryName As String
4

digitare quanto segue per definire il nome della query che stavi cercando :

qryName = "Inventario "

Modifica " inventario " e digitare il nome della query
5

digitare quanto segue per definire il database da utilizzare : .
< p > Set dbs = CurrentDb
6

digitare quanto segue per un ciclo ogni oggetto query nel database e verificare se è la query che stai cercando :

ogni qryItem in dbs.QueryDefs

Se qryItem.Name = qryName Poi

qryFound = True

End If

Avanti
7

digitare la seguente istruzione per visualizzare una finestra di messaggio , se è stato trovato il nome della query :

qryFound = True Then MsgBox

qryName & " di query esiste".

Else < br >

MsgBox qryName & " query non esiste".

End If
Press

"F5" per eseguire la procedura .