如何关闭其它的窗体和报表

cybdl

当我打开一个窗体或报表时，希望关闭其它的窗体和报表，我想用VBA写个公用过程以便各个窗体调用，这段代码怎么写？

zyp

運用forms集合及reports集合,如:dim i as integer

for i=1 to forms.count

     DoCmd.Close acForm, Forms(0).Name

next i