Active form

How can I tell if a form is active from a function?

What I want to do is have a check box menu item to open/close a window. But I need a way to tell if its open so I know to close it and not open it (if you see what I mean!)

Thanks in advance

If you have a form called Form1 and it is not loaded, if you write :

Unload Form1

No error is generated. If Form1 is loaded, it will unload.

So, go ahead and load & unload the forms according to your program's needs.

You can check the Forms Collection for a Certain Form, if it's there, then it's been loaded, otherwise it hasn't, ie.

Code:

---

Private Sub Command1_Click()
    If IsLoaded("Form2") Then MsgBox "Form2 Is Already Loaded"
End Sub

Private Function IsLoaded(ByVal sFormName As String) As Boolean
    For Each Form In Forms
        If LCase(Form.Name) = LCase(sFormName) Then
            IsLoaded = True
            Exit For
        End If
    Next
End Function

---

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]