请帮忙看看这个窗体条件,谢谢!!

LJB

如图,谢谢!!

qczvba

一、在模块里编如下自定函数：
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

二、至于关闭窗体的按钮，在窗体属性里找。找个关闭。放大，缩小，选择无，就可以，楼主试一下。

LJB

红色关闭X是退出整个系统的,在那里设条件?关闭按钮属性里只有是与否,没有放大缩小啊!