如何正确关闭所有打开的窗体
5 j' [+ x: z# `你是否试图用此法关闭所有打开的窗体? 但实际上总有对象并不能被关闭
3 `, g$ Z6 N$ Y/ e @4 l For Each objOpenning In Forms '关闭所有已经打开的窗体
7 ^* `9 W, m% \ DoCmd.Close acForm, objOpenning.Name
! {# o7 N0 ^ r) I+ J Next
& K: D+ [: P$ }" B9 |3 { For Each objOpenning In Reports '关闭所有已经打开的报表9 ]/ N; V1 \8 A3 |" [
DoCmd.Close acReport, objOpenning.Name
- |0 s- z% l4 u: [9 t Next: ~4 ^$ z) ?4 V5 D# E
用这样的方法就对了 :)& v: b1 {0 V+ f/ b
Do While Forms.Count > 0 '关闭所有已经打开的窗体3 D2 k# A1 h+ L8 O: B9 {
DoCmd.Close acForm, Forms(0).Name
6 l" x5 N7 Z7 I e& f7 L Loop
& \& \2 O! |7 V3 j: ^+ C" g2 a Do While Reports.Count > 0 '关闭所有已经打开的报表& l2 {3 \8 d# t. y, Y
DoCmd.Close acForm, Reports(0).Name
; z+ z0 B% \# s; e: K V. Q Loop |
发表于 2012-7-31 22:26:35
