Comment obtenir la liste de toutes les requêtes de la base de données ?
Lister les requêtes de la base de données
Voici une petite procédure VBA qui devrait faire l'affaire (à taper dans un module standard) :
Sub ListeRequetes()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb
For Each qdf In db.QueryDefs
Debug.Print qdf.Name
Next
Set db = Nothing
End Sub
Tester
Pour tester, ouvrez la fenêtre de debug (
CTRL +
G), et tapez-y :
ListeRequetes et appuyez sur la touche
[Entrée].
Vous obtiendrez la liste de toutes les requêtes de votre base.
Ajoutez un Debug.Print qdf.SQL dans la boucle For/Next pour afficher également le code SQL de la requête.
L'exemple de code ci-dessus fait appel à la bibliothèque DAO (
Microsoft DAO Object Library). Cette bibliothèque doit être associée à votre base de données pour que le programme fonctionne.
Pour plus de détails sur les références, consultez
cette page.
Ne pas lister les requêtes obsolètes
Avec la méthode ci-dessus, vous obtenez toutes les requêtes, y compris certaines inutiles, dont le nom démarre par le signe "~". Vous pouvez les éliminer de cette manière :
Sub ListeRequetesStandard()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb
For Each qdf In db.QueryDefs
If Left(qdf.Name, 1) <> "~" Then
Debug.Print qdf.Name
End If
Next
Set db = Nothing
End Sub
Dans la même série
Nouveau !
Derniers commentaires