标题: 请帮忙看看这个窗体条件,谢谢!! [打印本页] 作者: LJB 时间: 2011-5-6 09:48 标题: 请帮忙看看这个窗体条件,谢谢!! 如图,谢谢!!
[attach]45489[/attach] 作者: qczvba 时间: 2011-5-6 10:47
一、在模块里编如下自定函数：
Public Function IsLoaded(strName As String, Optional intObjectType As Integer = acForm)
IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
End Function
再在别的窗体运行测试（KJPZ窗体）是否存在。
If IsLoaded("KJPZ") = False Then '不存的事件
。。。
。。。
End If