no records- no print 1

[kennetha]

Hi all,

I've created the below code so if no records (in a report) are not found nothing happens.
It doesn't work thou!
Any suggestions

Thanks in advance
Kenneth

Private Sub cmdpicklistregular_Click()
DoCmd.OpenReport "rptPickingList"
If Reports![rptPickingList].RecordsetClone.RecordCount = 0 Then
MsgBox "No records Found. " & Chr(10) & Chr(13) & "Kindly check Picking Numbers. ", , pro
DoCmd.close acForm, "PickingNumbers"
End If
End Sub

 

[orna]

Try the "on no data" event in the report.
cancel = true
MsgBox "No records Found.

 

[kennetha]

Thanks... never noticed that!