Pop up Message if no data

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi all.. How can I get a message box to pop up if there is no data to be
displayed in the report. Here is my code:

Private Sub cmdPaveNumber_Click()
stDocName = "rptPaveNumber2"
DoCmd.OpenReport "rptPaveNumber2", acViewPreview, acEdit
On Error Resume Next
Me.cboPaveNumber = Null
End Sub

Thanks
R~
 
Hi all.. How can I get a message box to pop up if there is no data to be
displayed in the report. Here is my code:

Private Sub cmdPaveNumber_Click()
stDocName = "rptPaveNumber2"
DoCmd.OpenReport "rptPaveNumber2", acViewPreview, acEdit
On Error Resume Next
Me.cboPaveNumber = Null
End Sub

Thanks
R~
Click to expand...

The OpenReport method doesn't use an acEdit constant.

Code the Report's OnNoData event:

MsgBox "There are no records to report on."
Cancel = True

The above code will cause a 2501 error.
Trap the error in your click event that opens the report:

Private Sub cmdPaveNumber_Click()
On Error Resume Err_Handler
Dim stDocName as String
stDocName = "rptPaveNumber2"
DoCmd.OpenReport "rptPaveNumber2", acViewPreview
Exit_Sub:
Exit Sub
Err_Handler:
If Err = 2501 then
Else
MsgBox "Error " & Err.number & " " & Err.Description
End If
Resume Exit_Sub
End Sub
 
Back
Top