allreports dont work

  • Thread starter Thread starter Pierre
  • Start date Start date
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
 
Back
Top