التخلص من Error# فى طباعة تقرير عند عدم وجود بيان

[zakwan]

بسم الله الرحمن الرحيم

الاخوة الافاضل

لدي استعلام عن موظفين (لا على التعين) عند طلب طباعة تقرير تفاصيل معينة بواسطة اسم موظف يتم الطباعة عادي اذا كان هناك معلومات حول ذلك الموظف الذي تم اختيارة وكن حينما يكون اسم الموظف لايوجد لدية اية تفاصيل فيتم طباعة التقرير Error# فكيف يتم جعل الاستعلام يعطي خانة فارغة في حال عدم وجود اي معلومة عن الموظف المستعلم عنة لطباعتة . وشكراً

[محمد طاهر عرفه]

من الافضل ايقاف الطباعة عند عدم وجود بيانات

هذا الرد سبق ووضعه الأخ فهد الدوسري :

أولاً في حدث عند النقر للزر الذي على النموذج والذي يقوم بفتح التقرير

تضع هذا الكود

____________ 

Private Sub أمر0_Click() 

On Error Resume Next 

DoCmd.OpenReport "saudi1", acPreview 

End Sub

على افتراض ان اسم التقرير لديك هو ( saudi1 ) =========== وفي حدث عند عدم وجود بيانات في التقرير ضع الكود هذا

Private Sub Report_NoData(Cancel As Integer) 


MsgBox "عفواً.. لا توجد بيانات", vbCritical + vbOKOnly, "تنبيه" 

DOCMD.CancelEvent 

End Sub

إنسخ وألصق وغير مسمى التقرير فقط

------------

ملاحظة : ربما يكون الجزء الثاني من الكود فقط كافيا ، بدون استخدام

Onerror Resume Next فى الجزء الاول

و التي تم اضافتها للتغلب علي رسالةة كانت تظهر لدي طارح السؤال

[zakwan]

اشكرك استاذنا الكريم

ولكن في حال اريد ان يطبع حتى ولو لم يكن هناك اي معلومة للموظف ليظهر مثلا: في الخانات :Nil

[محمد طاهر عرفه]

فى هذه الحالة

فى التقرير

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

قم اخفاء مربعات النص الاصلية و اظهار مربع نص مخفي أصلا و توجد به العبارة التي تريد

ME.TXTBOXNAME.VISIBLE=FALSE

للاصلية

و = TRUE للجديدة

[zakwan]

فكرة جميلة جداً

اقوم حاليا بتجربتها

اشكرك اخي واستاذي محمد طاهر وفقك الله لكل خير ونصرك الله على من عاداك.