[求助]如何关闭当前打开的所有窗体？

wlfh888

请问如何在事件中，关闭所有打开的窗体、报表，然后打开一个特定窗体，代码如何编写，哪位大哥帮忙？

wlfh888

非常着急，请各位大哥帮忙

竹笛

提供一个关闭所有窗体的代码,仅供参考.

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

非常感谢