How to cycle thru ALL forms?

[MLH]

Am having trouble with the following
snippet. It stops after only cycling thru
open forms. There are many more than
that. How to modify this to cycle thru
all forms?

Sub AllOpenForms()
Dim frm As Form
' Enumerate Forms collection.
For Each frm In Forms
' Print name of form.
Debug.Print frm.Name, frm.MenuBar
Next frm
End Sub

[kaniest]

MLH wrote:

Am having trouble with the following
snippet. It stops after only cycling thru
open forms. There are many more than
that. How to modify this to cycle thru
all forms?

Sub AllOpenForms()
Dim frm As Form
' Enumerate Forms collection.
For Each frm In Forms
' Print name of form.
Debug.Print frm.Name, frm.MenuBar
Next frm
End Sub

Use the Documents collection.

[MLH]

I tried the following approach FIRST. But it does
not understand the MenuBar, complaining that
the Method or data member not found. So that's
why I tried the other approach.

Private Sub Command0_Click( )
Dim DefaultWorkspac e As Workspace
Dim CurrentDatabase As Database
Dim MyContainer As Container, MyDocument As Document, HowManyForms
As Integer
Dim i As Integer
Set DefaultWorkspac e = DBEngine.Worksp aces(0)
Set CurrentDatabase = DefaultWorkspac e.Databases(0)
Set MyContainer = CurrentDatabase .Containers(1)
HowManyForms = MyContainer.Doc uments.Count
For i = 0 To MyContainer.Doc uments.Count - 1
Set MyDocument = MyContainer.Doc uments(i)
Debug.Print MyDocument.Name , MyDocument.Menu Bar
Next i
End Sub

[Rich P]

Greetings, try this:

Sub checkAllForms()
Dim aob As AccessObject
Dim boolResult As Boolean

For Each aob In CurrentProject. AllForms
Debug.Print aob.Name
Next aob
End Sub

this code will list all the forms in your application open or closed

Rich

*** Sent via Developersdex http://www.developersdex.com ***

[fredg]

On Mon, 09 Oct 2006 12:08:56 -0400, MLH wrote:

Am having trouble with the following
snippet. It stops after only cycling thru
open forms. There are many more than
that. How to modify this to cycle thru
all forms?

Sub AllOpenForms()
Dim frm As Form
' Enumerate Forms collection.
For Each frm In Forms
' Print name of form.
Debug.Print frm.Name, frm.MenuBar
Next frm
End Sub

Public Sub ShowAllForms()
Dim db As DAO.Database
Dim cnt As Container
Dim doc As Document
Set db = CurrentDb

For Each cnt In db.Containers
If cnt.Name = "Forms" Then
For Each doc In cnt.Documents
Debug.Print doc.Name
Next doc
End If
Next cnt
End Sub

Change If cnt.Name = "Forms" Then to
If cnt.Name = "Reports" Then
of
If cnt.Name = "Tables" Then
etc. to show the other container objects.
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail

[MLH]

On 09 Oct 2006 16:26:55 GMT, Rich P <rp*****@aol.co mwrote:

>Sub checkAllForms()
Dim aob As AccessObject
Dim boolResult As Boolean

For Each aob In CurrentProject. AllForms
Debug.Print aob.Name
Next aob
End Sub

Hmm??? Trying to convert it to something
A97 understands. Not having much luck.
I modified 2 lines above...
Dim aob As Object
For Each aob In CurrentDB.AllFo rms
But am still getting compile-time errors.

[MLH]

On Mon, 9 Oct 2006 09:32:03 -0700, fredg <fg******@examp le.invalid>
wrote:

>

Public Sub ShowAllForms()
Dim db As DAO.Database
Dim cnt As Container
Dim doc As Document
Set db = CurrentDb

For Each cnt In db.Containers
If cnt.Name = "Forms" Then
For Each doc In cnt.Documents
Debug.Print doc.Name
Next doc
End If
Next cnt
End Sub

Change If cnt.Name = "Forms" Then to
If cnt.Name = "Reports" Then
of
If cnt.Name = "Tables" Then
etc. to show the other container objects.

Thanks. Seems close, but this does not work either...
Public Sub ShowAllForms()
Dim db As DAO.Database
Dim cnt As Container
Dim doc As Document
Set db = CurrentDb

For Each cnt In db.Containers
If cnt.Name = "Forms" Then
For Each doc In cnt.Documents
Debug.Print doc.Name, doc.MenuBar
Next doc
End If
Next cnt
End Sub

Just can't seem to get it to read the MenuBar property.

[Tim Marshall]

MLH wrote:

I tried the following approach FIRST. But it does
not understand the MenuBar, complaining that

The other responses are probably fine, but the approach I've taken,
which seems to work when I've had need to do what you're doing (in my
case, I wanted to count all lines of code in my apps), is to use the
MSysObjects table.

For forms:

Select MSysObjects!Nam e as ModName from MSysObjects where
MSysObjects!Typ e = -32768

For reports:

Select MSysObjects!Nam e as ModName from MSysObjects where
MSysObjects!Typ e = -32764


--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Whatcha doin?" - Ditto "TIM-MAY!!" - Me

[salad]

fredg wrote:

On Mon, 09 Oct 2006 12:08:56 -0400, MLH wrote:

>>Am having trouble with the following
snippet. It stops after only cycling thru
open forms. There are many more than
that. How to modify this to cycle thru
all forms?

Sub AllOpenForms()
Dim frm As Form
' Enumerate Forms collection.
For Each frm In Forms
' Print name of form.
Debug.Print frm.Name, frm.MenuBar
Next frm
End Sub

Public Sub ShowAllForms()
Dim db As DAO.Database
Dim cnt As Container
Dim doc As Document
Set db = CurrentDb

For Each cnt In db.Containers
If cnt.Name = "Forms" Then
For Each doc In cnt.Documents
Debug.Print doc.Name
Next doc
End If
Next cnt
End Sub

Change If cnt.Name = "Forms" Then to
If cnt.Name = "Reports" Then
of
If cnt.Name = "Tables" Then
etc. to show the other container objects.

In order to display the menubar/toolbar I think the form needs to be
opened in design mode, hidden, to get that info.
Public Sub ShowAllFormsMen us()
Dim db As DAO.Database
Dim doc As Document
Set db = CurrentDb
Dim frm As Form

With db.Containers!F orms
For Each doc In .Documents
DoCmd.OpenForm doc.name, acDesign, , , , acHidden
Set frm = Forms(doc.name)
Debug.Print doc.name; Tab; "Menubar " & frm.MenuBar; Tab;
"Toolbar " & frm.Toolbar
DoCmd.Close acForm, doc.name
Set frm = Nothing
Next
End With
db.Close
Set db = Nothing
End Sub

[kaniest]

MLH wrote:

Thanks. Seems close, but this does not work either...
Public Sub ShowAllForms()
Dim db As DAO.Database
Dim cnt As Container
Dim doc As Document
Set db = CurrentDb

For Each cnt In db.Containers
If cnt.Name = "Forms" Then
For Each doc In cnt.Documents
Debug.Print doc.Name, doc.MenuBar
Next doc
End If
Next cnt
End Sub

Just can't seem to get it to read the MenuBar property.

Because there is none. A document in the container
Container!Forms is _not_ a Form object.
Surprised? Check the help file and the object model.
AllForms was introduced after A97 to solve the
inconvenience you encountered.