Noms de tous les formulaires

Bonjour,

A partir de Access XP (2002), tu peux parcourir la collection AllForms:

Set bdp = Access.Application.CurrentProject

WnbrObjects = bdp.AllForms.Count

If WnbrObjects = 0 Then
Exit Sub
End If

For Each obj In bdp.AllForms
WobjName = obj.Name
etc.........
Next obj

J-Pierre

PS: Un coup d'oeil dans l'aide en ligne, il y a d'autres collections pour les états etc...

"Stach" <Stach@discussions.microsoft.com> a écrit dans le message de news:
A7FC8214-4C1B-4422-A6DF-00480C678F0D@microsoft.com...

Salut à tous,

J'aimerai savoir comment connaitre en vba tous les noms des formulaires,
actifs ou inactifs, contenus dans ma base de données?

Merci d'avance.
--
Stach ;-)

Bonjour,

Ou encore en Access2K :

Sub zz()
Dim f As AccessObject
For Each f In CurrentProject.AllForms
Debug.Print f.Name & IIf(f.IsLoaded, " ouvert", " fermé")
Next f
End Sub

Salut à tous,

J'aimerai savoir comment connaitre en vba tous les noms des formulaires,
actifs ou inactifs, contenus dans ma base de données?

Merci d'avance.

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Très juste, j'ai dit une connerie, AllForms est disponible dès Access 2000.

Bonjour

Et pour Access 97 :

dim cnt as container
dim doc as document

set cnt = currentdb.containers("Forms")
for each doc in cnt.documents
debug.print doc.name
next

@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
en cours de migration vers : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------

"J-Pierre" <enlevez-moi-ca.jpberchtold@hotmail.com> a écrit dans le message
de news: eWQ3dS5%23GHA.1220@TK2MSFTNGP05.phx.gbl...

Très juste, j'ai dit une connerie, AllForms est disponible dès Access
2000.