Liste des formulaires
Comment obtenir une liste des formulaires de la base de données ?
Lister les formulaires ouverts uniquement
Tapez le code suivant dans un module quelconque :
|
1 2 3 4 5 6 7 |
Function ListeFormsOuverts() Dim frm As Form For Each frm In Forms Debug.Print frm.Name Next End Function |
Pour tester, ouvrez la fenêtre Exécution, et tapez-y :
|
1 |
? ListeFormsOuverts() |
et validez par[Entrée].
Lister tous les formulaires de la base de données
Tapez le code suivant dans un module quelconque :
|
1 2 3 4 5 6 7 8 9 10 |
Function ListeForms() Dim db As DAO.Database, doc As DAO.Document Set db = CurrentDb For Each doc In db.Containers("Forms").Documents Debug.Print doc.Name Next Set db = Nothing End Function |
Pour tester, ouvrez la fenêtre Exécution, et tapez-y :
|
1 |
? ListeForms() |
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.
Truc > Pour les requêtes, j’ai ajouté un nouvel article sur le blog. C’est par là !
C’est génial!
Mais si je veus imprimer la liste de mes requêtes, il faut que je remplace quoi par quoi en fait?