Don't Want Report to Open if Message Box Appears Saying No Data for Report

[kirksaint]

I'm trying to stop a report from opening after a message box tells user that no data is available and return to the previous form

[PhilOfWalton]

Try

Private Sub Report_NoData (Cancel As Integer)
  MsgBox "There are no records", vbExclamation, "No Records"
  Cancel = True
End Sub
 

Phil

[NeoPa]

It's worth pointing out that the code that calls the report to open will error when this is used.

It's the right way to do it but just bear in mind you also need to handle the error in the calling code unless you want it to crash.

[kirksaint]

yes this worked but as NeoPa said now I have a error on clicking ok

[PhilOfWalton]

So you need to trap the Error.

Try something like this on the button that opens the report

Sub MyButton_Click
 
    On Error Goto Report_Open_Err
 
    DoCmd.OpenReport MyReport, acPreview
 
Report_Open_Exit:
    Exit Sub
 
 Report_Open_Err:
    If Err = 2501 Or Err = 3420 Then          ' Open Report Cancelled or form opened
        Exit Sub
    Else
        Msgbox Err & "   " & Err.Description
    End If
 
End Sub
 

Phil