How to loop through closed Forms?

How do I loop through all CLOSED forms in my Access 2007 accdb?

This only works for OPEN forms:

Dim frms as Forms
Dim frm as Form

For Each frm in frms
Debug.Print frm.Name
Next frm

Thanks

deko wrote:
How do I loop through all CLOSED forms in my Access 2007 accdb?

This only works for OPEN forms:

Dim frms as Forms
Dim frm as Form

For Each frm in frms
Debug.Print frm.Name
Next frm

Thanks

Look in the help files for 'AllForms' collection. Alternatively, there's
also Containers & Documents collections which you can obtain with this:

CurrentDb.Containers("Forms").Documents...

deko wrote:
How do I loop through all CLOSED forms in my Access 2007 accdb?

This only works for OPEN forms:

Dim frms as Forms
Dim frm as Form

For Each frm in frms
Debug.Print frm.Name
Next frm

Thanks

Probably the AllForms collection

Public Sub ListAllForms()
Dim aobj As Object
For Each aobj In CurrentProject.AllForms
Debug.Print aobj.name
Next aobj
End Sub

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/201003/1

On Mar 8, 1:51*pm, Banana Banana@Republic wrote:
deko wrote:
How do Iloopthrough allCLOSEDformsin my Access 2007 accdb?

This only works for OPENforms:

Dim frms asForms
Dim frm as Form

For Each frm in frms
* * Debug.Print frm.Name
Next frm

Thanks

Look in the help files for 'AllForms' collection. Alternatively, there's
also Containers & Documents collections which you can obtain with this:

CurrentDb.Containers("Forms").Documents...

AllForms is the ticket...

Dim obj As AccessObject
For Each obj In CurrentProject.AllForms
strFrm = obj.Name
Next obj

"deko" wrote in message
...
How do I loop through all CLOSED forms in my Access 2007 accdb?

This only works for OPEN forms:

Dim frms as Forms
Dim frm as Form

For Each frm in frms
Debug.Print frm.Name
Next frm

Thanks

"deko" ha scritto nel messaggio
...
On Mar 8, 1:51 pm, Banana Banana@Republic wrote:
deko wrote:
How do Iloopthrough allCLOSEDformsin my Access 2007 accdb?

This only works for OPENforms:

Dim frms asForms
Dim frm as Form

For Each frm in frms
Debug.Print frm.Name
Next frm

Thanks

Look in the help files for 'AllForms' collection. Alternatively, there's
also Containers & Documents collections which you can obtain with this:

CurrentDb.Containers("Forms").Documents...

AllForms is the ticket...

Dim obj As AccessObject
For Each obj In CurrentProject.AllForms
strFrm = obj.Name
Next obj

eryuikllmmùùù

"deko" a écrit dans le message de groupe de discussion :
...
How do I loop through all CLOSED forms in my Access 2007 accdb?

This only works for OPEN forms:

Dim frms as Forms
Dim frm as Form

For Each frm in frms
Debug.Print frm.Name
Next frm

Thanks