I used the code below to close all forms, but it doesn't work for Tables and Queries. Anyone know what needs to be changed to acccomplish closing all open Tables and Queries?
Function CloseForms1()
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop
End Function
What I'm having to do is include several "Close" macro commands in the various macros to close all of the open Tables and Queries.
Appreciate hearing from the experts!
Ed "Hiccup" Hicks
ed.hicks@wcg.com
Function CloseForms1()
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop
End Function
What I'm having to do is include several "Close" macro commands in the various macros to close all of the open Tables and Queries.
Appreciate hearing from the experts!
Ed "Hiccup" Hicks
ed.hicks@wcg.com