|
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 .
|
