عدم طباعة السجل الفارغ

Private Sub Report_NoData(Cancel As Integer)

MsgBox "عفواً.. لا توجد بيانات ! سيتم إغلاق التقرير.", _

vbMsgBoxRight + vbMsgBoxRtlReading + vbCritical + vbOKOnly, _

"تنبيه"

DoCmd.CancelEvent

End Sub

Private Sub Report_NoData(Cancel As Integer)

MsgBox "عفواً.. لا توجد بيانات ! سيتم إغلاق التقرير.", _

vbMsgBoxRight + vbMsgBoxRtlReading + vbCritical + vbOKOnly, _

"تنبيه"

DoCmd.CancelEvent

End Sub

تضع الكود السابق في

في حدث عند عدم وجود بيانات.

ملاحظه

إذا كنت تفتح " تقرير " من خلال زر موضوع على نموذج أخر يفضل بالإضافة إلى الكود السابق يجب أن تستخدم الكود التالي في "حدث عند نقر الزر" لتجنب إظهار رسالة الخطأ :-

On Error Resume Next

DoCmd.OpenReport "اسم التقرير", acViewPreview

If Err = 2501 Then Err.Clear

الأخ عبدالهادي وجميع الأخوه جزاكم الله خير

لي إذا أمكن بعض الإستفسارات هي :-

1- هذا الكود عمل معي ممتاز إذا كان التقرير فارغ لايوجد به بيانات

و لكن المطلوب هو أن بعض الأخوان الذين يدخلون البيانات من السرعه أن يضغط مفتاح الإدخال مرتين فيقبل سجل فارغ في هذه الحقول وعند الطباعه يطبع سجل فارغ في أول السجلات لأنه ليس له تاريخ فيكون في المقدمه مع العلم أن هذه الحقول نصيه

2- في هذا الكود الذي كتبته أنا افتح التقرير من نموذج فيه زرين واحد لمعاينة التقرير و الأخر لطباعة التقرير في الطباعه تظهر رساله بعد الرساله التي فيها عفواً لاتوجد بيانات وهي رساله تتم الطباعه الآن ثم تظهر بعدها رساله تم إلغا الإجراء و لا يطبع أريد إلغاء الرسالتين جميعاً والإكتفاء برساله عفواً لا يوجد بيانات ........ أسف على الإزعاج