Private Sub Report_NoData(Cancel As Integer)
MsgBox "Nema podataka"
DoCmd.CancelEvent
End
End Sub