Office中国论坛/Access中国论坛

标题: 【求助】窗体切换问题? [打印本页]

作者: wjsfeng    时间: 2009-3-1 11:13
标题: 【求助】窗体切换问题?
【求助】窗体切换问题?

我做了一个数据库,有两个窗体,当我代开第一个窗体时,显示第一个窗体,当我打开第二个窗体时,怎样编写代码让第一个窗体自动关闭??????
作者: ACMAIN_CHM    时间: 2009-3-1 11:19
在ACCESS自带的帮助中搜索一下
docmd.close相关的主题和用法及示例。


******************
*  一切皆有可能  *
******************

.
ACMAIN - Access论坛回贴准则(个人).
.

.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .
作者: wjsfeng    时间: 2009-3-1 11:34
恩,我知道了用【docmd.close】,但是我还是不知道当【窗体切换】的时候是触发的什么事件????


Private Sub Form_Unload(Cancel As Integer)
DoCmd.Close acForm, "主窗体"
End Sub

请问这里应该是【Form_Unload】还是什么????
请指点!!!
作者: 雨后的天空    时间: 2009-3-1 11:36
关注中.................我也有同样的问题
作者: Henry D. Sy    时间: 2009-3-1 11:41
如果是主窗体与其他窗体之间的切换,建议当其他窗体打开时,使主窗体不可见即可。
作者: wjsfeng    时间: 2009-3-1 12:10
我希望的是当我打开一个窗体,其它的窗体都不可见或者是关闭!!!
好像有点困难!!!
作者: ladios    时间: 2009-3-1 13:26
打开的窗体最大化能满足你的要求吗?
作者: wjsfeng    时间: 2009-3-1 13:34
恩,我知道你的意思,我希望的是多余的【窗体】关闭
作者: ACMAIN_CHM    时间: 2009-3-1 14:24
for each 一下 application.forms, 把name <> me.name的全docmd.close掉。


******************
*  一切皆有可能  *
******************

.
ACMAIN - Access论坛回贴准则(个人).
.

.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .
作者: wjsfeng    时间: 2009-3-1 14:49
不太明白
作者: wjsfeng    时间: 2009-3-1 16:42
Private Sub Form_Open(Cancel As Integer) ‘关键是我不太知道【sub】后面应该填写什么事件,这个是在标准模块里建立,还是在每个窗体里的代码里编写
For Each Application.Forms In 学生系统 '学生系统是我数据库的名称
If Name <> Me.Name Then
DoCmd.Close
End If
End Sub
作者: 蓝天8390    时间: 2009-3-1 17:57
用宏很简单啊,
作者: chaojianan    时间: 2009-3-1 19:41
Dim frm As Form
    For Each frm In Application.Forms
        If frm.Name <> "窗体4" Then
'            frm.Visible = False
            DoCmd.Close acForm, frm.Name
        End If

    Next
不能完全关闭窗体1-3(窗体1-3已打开,窗体4为当前窗体),
但可以隐藏窗体1-3。
作者: Henry D. Sy    时间: 2009-3-1 20:17
要想尽快得到解决,请您附上例子。
作者: wjsfeng    时间: 2009-3-3 10:04
[attach]36205[/attach]
作者: wjsfeng    时间: 2009-3-3 11:20
[attach]36214[/attach]

刚才那个附件有点问题,从新传的,请高手指教!!!
作者: chaojianan    时间: 2009-3-3 11:53
简单,请参考。
作者: wjsfeng    时间: 2009-3-3 13:50
谢谢
作者: 小鸡快跑0822    时间: 2009-3-3 15:09
用docmd.close




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3