这段代码怎么写？

ccczzz

当一个窗体打开时，其他已打开的窗体都关闭，也就是桌面上只能够有一个激活的窗体，而所有窗体可以通过菜单任意激活。

cg1

'简单，把以下代码写在 form_open 里面
dim f as form
for each f in forms
    if f.name <> me.name then
        docmd.close acform,f.name
    end if
next

aban

好办法！！