Gagnez du temps en utilisant Visual Basic pour Applications ( VBA) pour vérifier si une requête de base de données existe . Une requête récupère les enregistrements de tables une ou plusieurs bases de données. Il est temps en regardant à travers une liste de requêtes lorsque vous avez des centaines d'entre eux dans une base de données . VBA est un langage de programmation informatique disponible dans Microsoft Access pour automatiser les tâches de routine telles que déterminer si une requête existe . Utilisez l'objet QueryDef disponible en VBA pour parcourir les objets de base de données telles que les requêtes . Instructions
1

Téléchargez la base de données Northwind Microsoft 2007 ( voir Ressources). Ouvrez la base de données , sélectionnez " Database Tools " et cliquez sur " Visual Basic ". Cliquez sur le menu "Insertion " et " Module " pour insérer un nouveau module de code
2

Tapez la suivante pour créer une procédure : .

Public Sub doesQueryExist ()
< p> Appuyez sur " Entrée".
3

Tapez la commande suivante dans la procédure pour déclarer vos variables :

Dim dbs As Database

qryItem As QueryDef

qryFound As Boolean

qryName Dim As String
4

Tapez la commande suivante pour définir le nom de la requête que vous cherchez :

qryName = " Inventaire "

Modifier "Inventaire " et tapez le nom de votre requête
5

tapez la suivante pour définir la base de données à utiliser: .
< p> Set dbs = CurrentDb
6

Tapez la commande suivante pour parcourir chaque objet de la requête dans la base de données et vérifier si c'est la requête que vous cherchez :

chaque qryItem en dbs.QueryDefs

Si qryItem.Name = qryName Puis

qryFound = True

End If

Suivant
7

tapez l'instruction suivante pour afficher une boîte de message si le nom de la requête a été trouvée:

Si qryFound = True Then MsgBox

qryName et " requête existe . "

Else < br >

MsgBox qryName et " requête n'existe pas . "

End If Photos Presse

"F5" pour exécuter la procédure .