如何正确关闭所有打开的窗体
你尝试用这种方法关闭所有打开的窗体吗?但事实上,总有无法关闭的对象。
对于窗体中的每个对象,关闭所有打开的窗体。
DoCmd。关闭acForm,objOpenning。名字
然后
对于报告中的每个对象,关闭所有打开的报告。
DoCmd。关闭报告,objOpenning。名字
然后
就用这个方法:)
Do While表单。Count > 0 '关闭所有打开的窗体。
DoCmd。关闭acForm,Forms(0)。名字
环
边做边报告。Count > 0 '关闭所有打开的报告。
DoCmd。关闭acForm,Reports(0)。名字
循环
0条评论