Risparmia tempo utilizzando Visual Basic, Applications Edition (VBA) per verificare se esiste una query di database. Una query recupera i record di una o più tabelle di database. E 'tempo guardando attraverso un elenco di query quando si hanno centinaia di loro in un database. VBA è un linguaggio di programmazione disponibile in Microsoft Access per automatizzare le attività di routine, come per determinare se esiste una query. Utilizzare l'oggetto QueryDef disponibile in VBA per scorrere gli oggetti di database come query.

istruzione

1 Scarica il database di Microsoft Northwind 2007 (vedi Risorse). Aprire il database, selezionare "Strumenti database" e fare clic su "Visual Basic". Fare clic sul menu "Inserisci" e "modulo" per inserire un nuovo modulo di codice.

2 Digitare quanto segue per creare una procedura:

Public Sub doesQueryExist ()

Premere Invio."

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

DBS fiochi come database

Dim qryItem Come QueryDef

Dim qryFound Come booleano

Dim qryName As String

4 Digitare quanto segue per definire il nome della query che stai cercando:

qryName = "Inventario"

Modifica "Inventario" e digitare il nome della query.

5 Digitare quanto segue per definire il database da utilizzare:

Set dbs = CurrentDb

6 Digitare quanto segue per scorrere tutti gli oggetti di query del database e verificare se è la query che stai cercando:

Per ogni qryItem In dbs.QueryDefs

If qryItem.Name = qryName Then

qryFound = True

Finisci se

Il prossimo

7 Digitare la seguente dichiarazione per visualizzare una finestra di messaggio se è stato trovato il nome di query:

Se qryFound = True Then

MsgBox qryName & " query exists."

Altro

MsgBox qryName & " query does not exist."

Finisci se

Premere il tasto "F5" per eseguire la procedura.