' 你是否试图用此法关闭所有打开的窗体? 但实际上总有对象并不能被关闭

　　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

　　相关链接：

　　2008年下半年全国计算机等级考试报名信息汇总

　　更多信息请访问：计算机等级考试站　计算机等级考试在线题库　计算机等级考试论坛