If form is open 1

[foxhound44]

I have a form, frmMain. I have an if statement that I would like to use but I want to make sure that the form is open first, I also do not want to load that form on startup and make it invisible. So how in VB would I say:

If frmMain is Open Then
...

TIA!!!!!

 

[PaulF]

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


PaulF