Check if Form is Open

[DeoM]

Hi,
This is easy for you guys. I know I've seen the VB code for this; but when you need it you cannot find it.
Please give me code to check whether a form is open or not.
Thanks,
Jun M

 

[Zion7]

If CurrentProject.AllForms("frmProjectsSearch").IsLoaded Then
DoCmd.SelectObject acForm, "frmProjectsSearch": Forms!frmProjectsSearch.Visible = False
End If

 

[ZmrAbdulla]

Hundereds of posts here. one below.

Function fIsLoaded(ByVal strFormName As String) As Integer
'Returns a 0 if form is not open or a -1 if Open
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
        If Forms(strFormName).CurrentView <> 0 Then
            fIsLoaded = True
        End If
    End If
End Function

________________________________________
Zameer Abdulla
Visit Me
A child may not be able to lift too much.
But it can certainly hold a marriage together

 

[DeoM]

Thats great! Zion7. Thanks a lot.