Test if Form is Already Open

[jwalz]

I need help determining if an Access form is already open, so that I can perform some field refreshing and/or updating from changes to another form. Is there a function that will allow me to test for this?

Thanks,
Janet

 

[randy700]

Direct from Access's sample database (Northwind)....

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

Randy

 

[jwalz]

Thanks Randy. That did the trick.

Janet