Liste des requêtes
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) :
1 2 3 4 5 6 7 8 9 10 11 |
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.
Debug.Print qdf.SQL
dans la boucle For/Next
pour afficher également le code SQL de la requête.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 :
1 2 3 4 5 6 7 8 9 10 11 12 13 |
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 |
Bonjour
et si je veux lister les objets (requetes avec écriture du code SQL, formulaires, etc) d’un autre fichier ACCESS, comment on procède?
merci d’avance
Cordialement
Bressy frederic
En principe, cet aménagement devrait faire l’affaire :