标题: 求助:如何判断窗体是否打开? [打印本页] 作者: youchytan 时间: 2009-5-8 12:13 标题: 求助:如何判断窗体是否打开? 我知道罗斯文2000中有IsLoaded()函数,但没有找到.那位给提供一个.作者: Henry D. Sy 时间: 2009-5-8 12:25
有的呀，在通用模块里。作者: youchytan 时间: 2009-5-8 12:27
我用的07版.没有找到.能否给一个.谢了作者: youchytan 时间: 2009-5-8 12:54
在瑭子里找了一个
Function IsLoaded(strName As String, Optional intObjectType As Integer =
acForm)
IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName))
End Function作者: Henry D. Sy 时间: 2009-5-8 14:17
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