Liste des macros d’une base Access
Comment obtenir une liste des macros d’une base Access ?
Avant de démarrer
Cet article complète une série d’articles où il était question de lister les tables, les requêtes, les formulaires et les états de la base de données. Voici la liste des articles précédents :
Résumé des épisodes précédents
Scripts, au lieu du container Forms, et à afficher tous les documents de ce container. On pourrait être tenté d’utiliser un container appelé Macros, mais le nom est bien Scripts.
Lister toutes les macros de la base de données
Tapez le code suivant dans un module quelconque :
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Function ListeMacros() Dim db As DAO.Database, doc As DAO.Document Set db = CurrentDb For Each doc In db.Containers("Scripts").Documents If Left(doc.Name, 1) <> "~" Then Debug.Print doc.Name End If Next Set db = Nothing End Function |
Pour tester, ouvrez la fenêtre Exécution, et tapez-y :
|
1 |
? ListeMacros() |
et validez par[Entrée].
Important
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.
