How to know a fom is open or not?

Gino Liu · June 26th, 2003, 10:49 AM

Sorry, I am beginner in VBA..

I wish to know a form is open or not in VBA code. Can anyone just teach me how wirte the vba code in Access form. Thanks a lot...

I know it's stupid question, but help me....

Best Regards,
Gino Liu at CI.

Dataman · June 26th, 2003, 10:58 AM

Here is the function I use.

Function MTSBuildSmart_IsLoaded(ByVal strFormName As String) As Boolean
On Error GoTo errHandler

    'Returns True if the specified form is open in either Form or Datasheet view.
    Const conObjStateClosed As Integer = 0
    Const conDesignView As Integer = 0

    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            MTSBuildSmart_IsLoaded = True
        End If
    End If

exitProc:
    Exit Function

errHandler:
    MsgBox (Err.Number & ", " & Err.Description)
    Resume exitProc

End Function

Regards,
Mike

Gino Liu · June 26th, 2003, 01:09 PM

Thanks, it's workable. You give me a big <H2>help</H2>...
:)

Best Regards,
Gino Liu at CI.