Need an if statement to detect if a form is open 1

[Guest_imported]

Hello
Im trying to use some code in access to detect if a popup form is open.
I have tried to use
If IsFormOpen (“formname”) then
“do what ever”
End if
When I trigger the event that will run this code I get an error message saying Sub or Function not defined. Im just wondering if it is because the IsformOpen method doesn’t exist of if I need to select a Specific Reference.
Any advice would be greatly appreciated thanks.

 

[TrojanRabbit]

I found the following in the help:

Dim obj As Object
Set obj = Application.CurrentProject

If obj.AllForms.Item(&quot;<form_name>&quot.IsLoaded Then
...
End If

 

[Pipewelder]

The &quot;Isloaded&quot; function above is as follows.



Function IsLoaded(ByVal strFormName As String) As Integer
' 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