Is a report already open?

Is a report already open?

If you want to check whether a report is already open in the database, then you will need to check the Reports collection. Here is a small function that does this:

Sub fCheckReport(strReport As String) As Boolean
    Dim rpt As Report
    fCheckReport=False
    For Each rpt In Reports
        If rpt.Name=strReportName Then fCheckReport=True
    Next rpt
End Function

This will return True if the report is already open, and False if it isn't.

Top

Last modified at 06/06/2006 15:00:29