请教：如何在打开一个窗体时自动关闭另一个已打开的窗体？

9feng　发表于：2012-03-01 09:45:42 　

如何在打开一个窗体时自动关闭另一个已打开的窗体？打开的窗体不指定，任意打开一个窗体便关闭先前的打开的窗体。

麥田发表于：2012-03-01 10:02:28

DoCmd.Close acForm, "窗体名称"

麥田发表于：2012-03-01 10:02:39

【Access入门】用命令按钮关闭Access各种、任意对象类型的示例-Access软件网
http://www.accessoft.com/article-show.asp?id=5500

9feng 发表于：2012-03-01 10:43:43

麥田老师：DoCmd.Close acForm, "窗体名称" 这个是关闭指定的窗体代码，如果不指定，要怎么做到？

我找了一段代码，其中红色的我不知道什么意思，代码中有错误，请你帮忙修改一下，谢谢。

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

End Sub

小新发表于：2012-03-01 10:58:09

看看是不是你想要的。

9feng 发表于：2012-03-01 10:59:21

原来是这样：

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

再次谢谢老师的及时回复。

小新发表于：2012-03-01 11:25:43

再来一个

总记录：6篇页次：1/1 9 1 :

Access交流中心