如何在打开报表时关闭所有窗体？

xinle

因为所有窗体都是用的全屏弹出方式，打开报表时就会被挡在下面看不见，
（ACC2000不支持弹出式报表），如何在打开报表时关闭所有的窗体？
谢谢！

[此贴子已经被作者于2004-1-16 13:16:41编辑过]

wuyuanhui

用隐藏窗体的方法,报表打开时=forms=false;报表关闭时=forms=true

zhengjialon

其实在精品贴中有一例：
http://www.office-cn.net/bbs/dispbbs.asp?boardID=76&ID=288

xinle

多谢，多谢，
我在access911上找到了一个用于窗体的
Do Until Application.FORMs.Count = 1
　　　　If Application.FORMs(0).Name <> Me.Name Then
　　　　　　DoCmd.Close acFORM, Application.FORMs(0).Name
　　　　Else
　　　　　　DoCmd.Close acFORM, Application.FORMs(1).Name
　　　　End If
　　Loop

xinle

这样行不行？
Do While Forms.Count > 0
        DoCmd.Close acForm, Forms(0).Name
    Loop

tmtony

当有多个独占式的窗体时，处理要小心一点，否则会无法退出系统。如果最后获得焦点的独占式窗体被隐藏，偶尔会出现焦点回不到最前面的窗体。
其它方法可使用 snapview控件，或使用zhuyiwen的那个在窗体里打开报表的例子。
在ACCESS XP，可使用独占式报表，不过，在runtime时需要自自定义报表的快捷菜单，否则报表无法打印