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

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


zakwan

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

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

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

لدي استعلام عن موظفين (لا على التعين) عند طلب طباعة تقرير تفاصيل معينة بواسطة اسم موظف يتم الطباعة عادي اذا كان هناك معلومات حول ذلك الموظف الذي تم اختيارة وكن حينما يكون اسم الموظف لايوجد لدية اية تفاصيل فيتم طباعة التقرير 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 فى الجزء الاول

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

رابط هذا التعليق
شارك

فى هذه الحالة

فى التقرير

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

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

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