' 你是否试图用此法关闭所有打开的窗体? 但实际上总有对象并不能被关闭
For Each objOpenning In Forms '关闭所有已经打开的窗体
DoCmd.Close acForm, objOpenning.Name
Next
For Each objOpenning In Reports '关闭所有已经打开的报表
DoCmd.Close acReport, objOpenning.Name
Next
用这样的方法就对了 :)
Do While Forms.Count > 0 '关闭所有已经打开的窗体
DoCmd.Close acForm, Forms(0).Name
Loop
Do While Reports.Count > 0 '关闭所有已经打开的报表
DoCmd.Close acForm, Reports(0).Name
Loop
责任编辑:小草