allreports dont work

P

Pierre

Hi all,

This is working

Dim obj as accessobject
Dim dbs as object
set dbs=application.currentdata
for each obj in dbs.allqueries
if obj.isloaded then
docmd.close acquery, obj.name, acsaveno
endif
next
set dbs=nothing
set obj=nothing

This is not working ***** Why?

Dim obj as accessobject
Dim dbs as object
set dbs=application.currentdata
for each obj in dbs.allreports
if obj.isloaded then
docmd.close acreport, obj.name, acsaveno
endif
next
set dbs=nothing
set obj=nothing


regards,
pierre
 
Top