如何判断一个窗体是否打开

彭南开　发表于：2007-12-29 08:35:40 　

复制

如何用VBA判断一个窗体是否打开?谢谢！

Top

探花发表于：2007-12-29 09:39:34

参考 IsLoaded 属性的帮助

或者看报销系统 ,里面有相应的代码

Top

探花发表于：2007-12-29 09:43:45

如报销教程第四章第三小节，IsLoaded返回的是布尔值，值为True或False

If IsLoaded("usysfrmMain") Then
    DoCmd.Echo False
    Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
    DoCmd.Echo True
End If

Top

Victor Duane 发表于：2007-12-29 14:05:02

自定义函数 IsYlwjcct("窗体名") （如果指定的窗体打开，返回True）
Function IsYlwjcct(ByVal strFormName As String) As Boolean
Const conObjStateClosed = 0
Const conDesignView = 0
If SysCmd(acSysCmdGetObjectState,acForm,strFormName) <>conObjStateClosed Then
If Forms(strFormName).CurrentView<>conDesignView Then
IsYlwjcct=True
End If
End If
End Function

Top

彭南开发表于：2007-12-31 10:27:35

谢谢！搞定了。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

如何判断一个窗体是否打开