Access VBA, Screen.ActiveReport.Name not working code stopt no report is present

Question

Access VBA, Screen.ActiveReport.Name not working code stopt no report is present

C.J. P 40

On Error Resume Next

    reportName = Screen.ActiveReport.Name

   If Err.Number <> 0 Then

MsgBox "Is momenteel niet actief.", vbExclamation

Err.Clear

Exit Sub

End If

On Error GoTo 0

0 comments

Answer accepted by question author

0 additional answers

Your answer

Answer 1

Gabriel-N 17,785 Microsoft External Staff Moderator

Hello C.J. P

Please try the following approach:

Sub CheckActiveReport()
    Dim rpt As Report
    Dim reportName As String

    ' 1. Attempt to grab the active report
    On Error Resume Next
    Set rpt = Screen.ActiveReport
    On Error GoTo 0

    ' 2. Check if the object was successfully assigned
    If rpt Is Nothing Then
        MsgBox "Er is momenteel geen rapport actief.", vbExclamation
        Exit Sub
    End If

    ' 3. If we got here, a report is active
    reportName = rpt.Name
    MsgBox "Actief rapport: " & reportName

End Sub

Instead of relying on Screen.ActiveReport, you might consider using the AllReports collection to check whether a report is actually open and loaded.

If you simply need to determine whether a report is open (regardless of whether it currently has focus), you can use this logic:

If CurrentProject.AllReports("YourReportName").IsLoaded Then
    ' The report is open, even if it doesn't have focus
End If

If you are trying to retrieve the report name from within the report itself (for example, in a Format or Print event), you can use: Me.Name

Hope this helps. If this doesn't apply to your situation, please feel free to share more details about your Access setup, and I’ll be happy to take a closer look with you.

Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Gabriel-N 17,785 Reputation points Microsoft External Staff Moderator

2026-04-22T09:42:47.27+00:00

Hello C.J. P

Just checking in to see if the above information was helpful.

If you have any further updates on this issue, please feel free to post back.
C.J. P 40 Reputation points

2026-04-22T18:59:15.1666667+00:00

A different approach has been taken. Where it is certain that the Report takes precedence, this is how it has been resolved.
Gabriel-N 17,785 Reputation points Microsoft External Staff Moderator

2026-04-23T08:30:50.35+00:00

Hello C.J. P

Thank you for your feedback. If anything else comes up or you're unsure about something, feel free to post your question in the forum. It's not just me, the whole community is here and always happy to support you.

Answer 2

Screen.ActiveReport only works when a report actually has the focus at run time. If no report is active, trying to read Screen.ActiveReport.Name raises a run-time error, which is why the code stops unless it is wrapped in error handling.

To handle this safely, keep the On Error Resume Next around the Screen.ActiveReport access, then immediately check Err.Number and clear it, as in the example below:

Dim reportName As String

On Error Resume Next
reportName = Screen.ActiveReport.Name

If Err.Number <> 0 Then
    MsgBox "Is momenteel geen rapport actief.", vbExclamation
    Err.Clear
    On Error GoTo 0
    Exit Sub
End If

On Error GoTo 0

' At this point, reportName contains the active report name
' Continue with code that needs the active report

Key points based on the behavior of Screen.ActiveReport and On Error:

Screen.ActiveReport raises an error if no report has the focus. This is expected behavior.
On Error Resume Next lets execution continue after that error so the code can inspect Err.Number.
Err.Number <> 0 indicates that no active report was available; show the message, clear the error, and exit.
On Error GoTo 0 should be called after the check to turn off the inline error handling once it is no longer needed.

If the code still “stops,” verify:

That On Error Resume Next is executed before the Screen.ActiveReport.Name line.
That no other error occurs later in the procedure while On Error Resume Next is still active.

References:

Share via

Access VBA, Screen.ActiveReport.Name not working code stopt no report is present

0 additional answers

Your answer