طلب كود فى التقرير

اخي الكريم ضع هذا في خصائص - عند عدم وجود بيانات

Private Sub Report_NoData(Cancel As Integer)
    
     MsgBox "لا يوجد بيانات لهذا اليوم المحدد", vbInformation
    Cancel = True
    
End Sub

اخى الكريم الكود يعمل بشكل ممتاز اشكرك على مجهودك وجزاك الله خيرا