Open objects (1 Viewer)

[seany]

Is it possible to list the current Reports open?

 

[goppo]

Yes, use this

For j = 0 To CurrentProject.AllReports.Count
if CurrentProject.AllReports.Item(j).IsLoaded = true then
xx(j)=CurrentProject.AllReports.Item(j).Name
end if
Next j