zakwan قام بنشر نوفمبر 11, 2003 قام بنشر نوفمبر 11, 2003 بسم الله الرحمن الرحيم الاخوة الافاضل لدي استعلام عن موظفين (لا على التعين) عند طلب طباعة تقرير تفاصيل معينة بواسطة اسم موظف يتم الطباعة عادي اذا كان هناك معلومات حول ذلك الموظف الذي تم اختيارة وكن حينما يكون اسم الموظف لايوجد لدية اية تفاصيل فيتم طباعة التقرير Error# فكيف يتم جعل الاستعلام يعطي خانة فارغة في حال عدم وجود اي معلومة عن الموظف المستعلم عنة لطباعتة . وشكراً 1
محمد طاهر عرفه قام بنشر نوفمبر 11, 2003 قام بنشر نوفمبر 11, 2003 من الافضل ايقاف الطباعة عند عدم وجود بيانات هذا الرد سبق ووضعه الأخ فهد الدوسري : أولاً في حدث عند النقر للزر الذي على النموذج والذي يقوم بفتح التقرير تضع هذا الكود ____________ 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 قام بنشر نوفمبر 12, 2003 الكاتب قام بنشر نوفمبر 12, 2003 اشكرك استاذنا الكريم ولكن في حال اريد ان يطبع حتى ولو لم يكن هناك اي معلومة للموظف ليظهر مثلا: في الخانات :Nil
محمد طاهر عرفه قام بنشر نوفمبر 12, 2003 قام بنشر نوفمبر 12, 2003 فى هذه الحالة فى التقرير فى حدث عند عدم وجود بيانات قم اخفاء مربعات النص الاصلية و اظهار مربع نص مخفي أصلا و توجد به العبارة التي تريد ME.TXTBOXNAME.VISIBLE=FALSE للاصلية و = TRUE للجديدة
zakwan قام بنشر نوفمبر 13, 2003 الكاتب قام بنشر نوفمبر 13, 2003 فكرة جميلة جداً اقوم حاليا بتجربتها اشكرك اخي واستاذي محمد طاهر وفقك الله لكل خير ونصرك الله على من عاداك.
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.