Check if form is open (1 Viewer)

[Tracy]

Hello (again),

Does anyone know how to check in VBA if a form is open?

Thanks

 

[wh00t]

paste the following code as a public function

Public Function IsOpen(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in form view

    Const conDesignView = 0
    Const conObjStateClosed = 0
    
    IsOpen = False
    
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsOpen = True
        End If
    End If

End Function

and use it to check that a form is open by the following

e.g. If IsOpen("SomeForm") Then
MsgBox "yeah it's open"
End If

 

[Tracy]

Thank you very much.