判断窗体是否打开的两种方法数据库教程 -电脑资料

    Function IsLoaded(strName As String, Optional intObjectType As Integer =

    acForm)

    IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)

    End Function

    函数二

    Function IsFormLoaded(strFrmName As String) As Boolean

    Const conFormDesign = 0

    Dim intX As Integer

    IsFormLoaded= False

    For intX = 0 To Forms.Count - 1

    If Forms(intX).FormName = strFrmName Then

    If Forms(intX).CurrentView <> conFormDesign Then

    IsFormLoaded= True

    Exit Function ' Quit function once form. has been found.

    End If

    End If

    Next

    End Function