ник: osmor
все открытые формы попадают в коллекцию forms
dim i as integer
dim intCount as integer
intCount = forms.count
for i = intCount to 0 step -1
docmd.close acform, forms(i).name
next i
|
как-то так
(только возможно что не
for i = intCount to 0 ...
а
for i = intCount to 1 ...
)
не помню уже точно
