How to check if form is open

[chonny]

How to check : is form open

 

[chonny]

I forget to mentioned : I asking for MS ACCESS

 

[gearybish]

Function IsLoaded(ByVal strFormName As String) As Boolean
'Returns True if the specified form is open in Form view or Datasheet view.

Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If

End Function

 

[PHV]

Depending of your version of access you may try this:
Application.CurrentProject.AllForms("name of form").IsLoaded

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244