Office中国论坛/Access中国论坛

标题: [求助]如何关闭当前打开的所有窗体？ [打印本页]

作者: wlfh888 时间: 2004-6-26 05:45
标题: [求助]如何关闭当前打开的所有窗体？
请问如何在事件中，关闭所有打开的窗体、报表，然后打开一个特定窗体，代码如何编写，哪位大哥帮忙？

作者: wlfh888 时间: 2004-6-26 06:15
非常着急，请各位大哥帮忙

作者: 竹笛 时间: 2004-6-26 16:08
提供一个关闭所有窗体的代码,仅供参考.

dim intX as integer

for intX= intCount to 0 step -1

if forms(intX).Name <> "MyFormToKeepOpen" then

docmd.close acform,forms(intX).name

end if

next intx

[此贴子已经被作者于2004-6-26 8:08:17编辑过]

作者: wlfh888 时间: 2004-7-14 21:03
非常感谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)