Don't display report if no records 1

[annie52]

I have an option group on my menu for the user to choose from available reports. When they click on a command button, a Select Case displays the appropriate report. When there are no records, I want to display a message rather than opening the report.

Since I'm opening the report via a command button, I can't use the On No Data event. I suspect I need to insert an IF statement in the Select Case but I'm not sure just how to code this.

 

[dhookom]

I can't use the On No Data event

Why not? If this generates an error, you can trap the 2501 error in the code that opens the report.

Duane
Hook'D on Access
MS Access MVP

 

[annie52]

Thanks for the reply and the great question. Here's what I put in the On No Data event for the report. I don't get an error but the message box displays twice and then the report opens anyway.

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo ErrAnn

MsgBox "Data integrity is fine. Stop worrying!"

Exit_Report_NoData:
Exit Sub

ErrAnn:
MsgBox "Error number " & Err.Number & ": " & Err.Description
Resume Exit_Report_NoData

End Sub

 

[RoyVidar]

Ah - you need to cancel the opening, too:

[tt]Private Sub Report_NoData(Cancel As Integer)
On Error GoTo ErrAnn

MsgBox "Data integrity is fine. Stop worrying!"
cancel = true
Exit_Report_NoData:
Exit Sub

ErrAnn:
MsgBox "Error number " & Err.Number & ": " & Err.Description
Resume Exit_Report_NoData
End Sub[/tt]

Then, in the errorhandler of the calling sub, do something likle

[tt]ErrAnn:
If Err.Number <> 2501 Then
MsgBox "Error number " & Err.Number & ": " & Err.Description
End If
Resume YourExitHandler[/tt]

Roy-Vidar

 

[annie52]

Thank you so much! This works wonderfully!