Office中国论坛/Access中国论坛

标题: 如何在打开报表时关闭所有窗体？ [打印本页]

作者: xinle 时间: 2004-1-16 21:16
标题: 如何在打开报表时关闭所有窗体？
因为所有窗体都是用的全屏弹出方式，打开报表时就会被挡在下面看不见，
（ACC2000不支持弹出式报表），如何在打开报表时关闭所有的窗体？
谢谢！

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

作者: wuyuanhui 时间: 2004-1-16 21:19
用隐藏窗体的方法,报表打开时=forms=false;报表关闭时=forms=true

作者: zhengjialon 时间: 2004-1-16 21:54
其实在精品贴中有一例：
http://www.office-cn.net/bbs/dispbbs.asp?boardID=76&ID=288

作者: xinle 时间: 2004-1-16 22:10
多谢，多谢，
我在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 时间: 2004-1-16 22:16
这样行不行？
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop

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

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