Are there any forms open?

[Marcia]

Could someone help me with a function that returns True if there is any other
form open other than "MyForm".

Thank you!

Marcia

[DFS]

"Marcia" <mw*****@earthlink.net> wrote in message
news:cI******************@newsread3.news.atl.earth link.net...

Could someone help me with a function that returns True if there is any other form open other than "MyForm".

Thank you!

Marcia

Marcia, try this:

Function IsOtherFormLoaded(ByVal MyFormName As String) As Integer

' Returns True if a form other than the specified form is loaded.

Dim i as integer

IsOtherFormLoaded = False
For i = 0 To Forms.Count - 1
If Forms(i).formName <> MyFormName Then
IsOtherFormLoaded = True
Exit Function
End If
Next

End Function

[Larry Linson]

A Count value for the Forms collection of greater than one would indicate
that another form is open.

For example,

If Forms.Count > 1 Then
... do what you want for more than one form
End If

Larry Linson
Microsoft Access MVP

"Marcia" <mw*****@earthlink.net> wrote in message
news:cI******************@newsread3.news.atl.earth link.net...

Could someone help me with a function that returns True if there is any other form open other than "MyForm".

Thank you!

Marcia