如何正确关闭所有打开的窗体

你尝试用这种方法关闭所有打开的窗体吗？但事实上，总有无法关闭的对象。

对于窗体中的每个对象，关闭所有打开的窗体。

DoCmd。关闭acForm，objOpenning。名字

然后

对于报告中的每个对象，关闭所有打开的报告。

DoCmd。关闭报告，objOpenning。名字

然后

就用这个方法:)

Do While表单。Count > 0 '关闭所有打开的窗体。

DoCmd。关闭acForm，Forms(0)。名字

环

边做边报告。Count > 0 '关闭所有打开的报告。

DoCmd。关闭acForm，Reports(0)。名字

循环