请教一个判定窗体是否打开的代码

williamwangc

RT.我写的窗体中，必须保证某个窗体处于打开状态。我要保证处于打开状态首先要判定它。请问这段代码该怎么写呢？

roych

用IsLoaded函数。
Docmd.OpenForm"窗体1"
If CurrentProject.AllForms("窗体1").IsLoaded Then
Msgbox "窗体1已经打开"
End If
当然，前提是先要执行OpenForm函数，再判断是否加载完毕，如果加载完毕了就是打开了。不执行这一步（OpenForm），系统是不会自动加载指定窗体的。

williamwangc

感谢版主。我也想到了ISLOADED了。不过我不知道ISLOADED到底怎么引用的。看到你的代码我知道了。
可是我用forms("窗体").isloaded无法应用isloaded.那么isloaded是在DAO里面的么？

roych

跟DAO或者ADO没关系吧？{:soso_e112:}，再说了，DAO里面也没有Form对象啊。
应该是在Access组件里用的。具体可以看看Andy的集成模块。我懒得去写了，O(∩_∩)O~
http://www.office-cn.net/thread-106028-1-1.html