教你如何批量关闭窗口，省时又省力！

哈喽哈喽，大家好，今天我们来分享一个小功能。

在实际的应用场景中，我们可能需要打开多个窗口，在关闭窗口时，逐个关闭窗口可能比较繁琐，而且有些窗口虽然不再显示了，但可能是隐藏的。在这种情况下，该怎么处理呢？让我们一起动手来尝试一下吧。

为了方便测试，我们可以先创建多个窗体，越多越好。

同时我们需要再创建一个窗体，放上按钮控件。

PART 2、代码统计未关闭的窗口

为了测试，我们再做一个窗体，在窗体上放一个按钮控件。

接着，添加一个按钮的单击，用于窗体的隐藏

 Me.Visible = False

接着，运行一下窗体2，点击隐藏，将这个窗体隐藏一下。当然，我们需要再打开几个窗体，这里我们再打开两个窗体。

最后，我们再立即窗口输入：?Forms.Count

敲个回车，统计一下目前运行的窗体，统计是3个窗体。这样我们就知道有3个窗体运行着。

PART 3、添加关闭代码

最后，我们在窗体1中添加一下关闭的代码：

Do While Forms.Count > 0 '关闭所有已经打开的窗体
　　DoCmd.Close acForm, Forms(0).Name
　　Loop
　　Do While Reports.Count > 0 '关闭所有已经打开的报表
　　DoCmd.Close acForm, Reports(0).Name
Loop

PART 4、运行测试

代码添加好后，我们可以直接点击关闭按钮，关闭后，我们还是在立即窗口输入：?Forms.Count

我们看到结果输出是0，这说明批量关闭的代码生效了，把隐藏的窗体也给正真意义上的关闭。

好了，大家快去试一下吧。