Turn off message from access when "NoData" encountered

[GraeagleBill]

I have a report with the "NoData" event coded:

Private Sub Report_NoData(Cancel As Integer)
MsgBox "There are no names " & """Selected"""
Cancel = True
End Sub

Simple enough eh? However, Access still issues the message:



What do I do to get Access to stop issuing that message?

[Micron]

What you have should work, but the message is referring back to the method you used to open the report so the answer might lie in the DoCmd line you use to open the report. Can you post that?

[GraeagleBill]

Function "PrintSelNameTags" is the action specified in a right-click popup menu.

Private Function PrintSelNameTags()

DoCmd.OpenReport "rptNameTags", acViewPreview
        
End Function

[Micron]

You have no error trap for this (error 2501) in either place. Mind you, I think that it won't work in the report open code anyway because execution goes back to the initiating code when the report is opened (or canceled), so I'm pretty sure I've always put the error trap for this issue there. Try this

Private Function PrintSelNameTags()
On Error GoTo errHandler

DoCmd.OpenReport "rptNameTags", acViewPreview

errHandler:
If Err.Number = 2501 Then 
  Exit Function
Else
  msgbox "Error " & Err.Number & ": " & Err.Description
End If
End Function

[GraeagleBill]

Your suggestion of adding error handler code to the function cleared up the offending informational message. Never occurred to me to tackle the issue from the point-of-view of an error condition. My mindset was locked in on the notion that it was a proper method I was somehow missing.

Thanks,
Bill

[Micron]

Glad to have helped!