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 :

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 :

? ListeFormsOuverts()

et validez par[Entrée].

Lister tous les formulaires de la base de données

Tapez le code suivant dans un module quelconque :

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 :

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