【求助】窗体切换问题？

wjsfeng

【求助】窗体切换问题？

我做了一个数据库，有两个窗体，当我代开第一个窗体时，显示第一个窗体，当我打开第二个窗体时，怎样编写代码让第一个窗体自动关闭？？？？？？

小鸡快跑0822

用docmd.close

wjsfeng

谢谢

chaojianan

简单，请参考。

wjsfeng

刚才那个附件有点问题，从新传的，请高手指教！！！

wjsfeng

Henry D. Sy

要想尽快得到解决，请您附上例子。

chaojianan

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。

蓝天8390

用宏很简单啊,

wjsfeng

Private Sub Form_Open(Cancel As Integer) ‘关键是我不太知道【sub】后面应该填写什么事件，这个是在标准模块里建立，还是在每个窗体里的代码里编写
For Each Application.Forms In 学生系统 '学生系统是我数据库的名称
If Name <> Me.Name Then
DoCmd.Close
End If
End Sub