اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

  • Thanks 1
قام بنشر

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

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

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

تضع هذا الكود

____________ 

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 فى الجزء الاول

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

قام بنشر

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

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

قام بنشر

فى هذه الحالة

فى التقرير

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

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

ME.TXTBOXNAME.VISIBLE=FALSE

للاصلية

و = TRUE للجديدة

قام بنشر

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information