Pressing the cancel button avoid run time error

[jcaptchaos2]

Is there a way to avoid a run time error when someone presses the cancel button ?

 

[jcaptchaos2]

Here is the code for the button

Private Sub Check_transaction_report_Click()
DoCmd.OpenReport "Shop Floor Data Query1", acViewReport
DoCmd.Maximize
Me.Visible = False

End Sub

 

[jcaptchaos2]

Is there a line you could add for "if cancel" exit?

 

[boblarson]

Change your code to add an error handler:

Private Sub Check_transaction_report_Click()
   On Error GoTo Check_transaction_report_err
 
   DoCmd.OpenReport "Shop Floor Data Query1", acViewReport
   DoCmd.Maximize
 
   Me.Visible = False
 
Check_transaction_report_Exit:
   Exit Sub
 
Check_transaction_report_Err:
   If Err.Number <> 2501 Then
      MsgBox Err.Description, vbExclamation, "Error #: " & Err.Number
      Resume Check_transaction_report_Exit
      Resume
   End If
 
End Sub

 

[jcaptchaos2]

Thanks Bob, perfect.