[求助]自动关闭窗体的方法

阿丰

我想在程序运行过程中，只能有一个窗体出现，即当我打开打一个窗体时，能自动判断先前是否有已打开的窗体，若有则关闭它。请问实现这过程的VBA代码应如何编写？请不吝赐教。

李寻欢

暂时只想到这个方法，遍历所有窗体，更好的方法应该是遍历所有已打开的窗体，但不知道有没有那种集合。

Private Sub Form_Open(Cancel As Integer)
    Dim MyFrm
    For Each MyFrm In CurrentProject.AllForms
        If MyFrm.IsLoaded = True And MyFrm.Name <> Me.Name Then
            DoCmd.Close acForm, MyFrm.Name
        End If
    Next
End Sub

[此贴子已经被作者于2003-5-11 12:39:32编辑过]

阿丰

李大侠，我试了一下你给出的程序，要把 lhl.IsLoaded 换成 MyFrm.IsLoaded 就可以了，否则会提示变量未定义。谢谢你了。

李寻欢

是我的错，不好意思

cg1

请问，上述代码能够完成要求吗？比如我开了10个其他窗体，打开这个窗体的时候要关闭其他10个？好像不行吧？

我记得以前曾经讨论过，是在2002年9-10月份左右吧

[此贴子已经被作者于2003-5-11 13:43:53编辑过]

李寻欢

可以关闭所有打开的窗体，不只十个，只是是打开的都会把它关闭

shuix

谢谢分享