Check if Form is Open (Access VB)

[spaceman99]

Could someone please tell me how to check whether or not a form is open in Access 97 VB with an If statement please?

Form is called Sessions (Forms![Sessions])


Thank you.

 

[TonyJollans]

Hi spaceman99,

It's much easier in A2K, but thisi s taken direct from Microsoft's Northwind Database:

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

Enjoy,
Tony

 

[spaceman99]

Thank you, that works!