Report_Close event when there's no data

[annie52]

I handle the 2501 error in the Report_NoData event but, if there is no data, I don't want this message to appear in the Report_Close event. Should I set a global variable to capture the NoData value or is there a better way?

Response = MsgBox("If you are satisfied with the report" _
& vbCrLf & "click on the [OK] button to update the" _
& vbCrLf & "underlying table with today's report date." _
& vbCrLf & "Otherwise, click on the [Cancel] button.", vbOKCancel, _
"RPP Tracking System")
If Response = vbOK Then
' run query to update the ReportDate field where it is null
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryMilTxnStatusCode-DateReported"
Else
' do nothing
End If

 

[genomon]

I don't want this message to appear in the Report_Close event

Huh? What message?
Just set Cancel = True.

Private Sub Report_NoData(Cancel As Integer)

    MsgBox "There is no data to print.", vbCritical
    Cancel = True

End Sub

Ni neart go cur le cheile.

 

[annie52]

I already did that. My problem is that after the NoData message displays, the Report_Close event occurs and runs the code I pasted above.

 

[genomon]

Gotcha. A public variable within the report should suffice. I always make it a habit of initializing it in the Report_Open() event as well.

Ni neart go cur le cheile.