求助:如何判断窗体是否打开?

youchytan

我知道罗斯文2000中有IsLoaded()函数,但没有找到.那位给提供一个.

Henry D. Sy

有的呀，在通用模块里。

youchytan

我用的07版.没有找到.能否给一个.谢了

youchytan

在瑭子里找了一个
Function IsLoaded(strName As String, Optional intObjectType As Integer =
acForm)
IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName))
End Function

Henry D. Sy

Function IsLoaded(ByVal strFormName As String) As Boolean
    Dim oAccessObject As AccessObject
    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
         If oAccessObject.CurrentView <> acCurViewDesign Then
            IsLoaded = True
        End If
    End If
End Function