Is report open?

CJBIRKIN

Drink!
Local time
Today, 23:11
Joined
May 10, 2002
Messages
255
Hello

Does anyone know how to find out all the reports currently open?

Chris
 
Dim obj As AccessObject, dbs As Object

Set dbs = Application.CurrentProject

For Each obj In dbs.AllReports

If obj.IsLoaded = True Then
Debug.Print obj.Name
End If

Next obj
 
HELLO

Nice one cheers!

Chris
 

Users who are viewing this thread

Back
Top Bottom