وصول أمثلة

منع فتح تقرير إذا لا توجد بيانات لإظهار

نستطيع أن نمنع تقرير مفتوحة إذا لا توجد بيانات لإظهار، ولهذا نحن استخدام اثنين من أشكال اعتمادا على إصدار Access:

1 - كل إصدارات Access
وضع رمز أدناه في خصائص التقرير، مما يتيح لل'الحدث

استخدام الحدث التمكينية (تنشيط) تقرير:

الفرعية خاصة Report_Activate ()

إذا DCOUNT ("*"، Me.RecordSource) = 0 ثم

MsgBox "لا يوجد نتائج لعرض" vbDefaultButton1، "خطأ!"

AcReport DoCmd.Close، "اسم التقرير"

نهاية إذا

نهاية الفرعية

2 - نسخة من 7 (وصول 95) وأضيف هذا الحدث "إذا لا توجد بيانات"، ثم يمكننا urilizar البرمجية التالية:

خاصة الفرعية Report_NoData (إلغاء وصحيح)

MsgBox "لا توجد بيانات في التقرير."، VbInformation، "خطأ!"

إلغاء = صحيح

نهاية الفرعية

لمعرفة تشغيل تحميل على سبيل المثال: منع تقرير الافتتاح

نشرت في غير مصنف | التعليقات 13 »

كيفية منع شكل مفتوح إذا أية سجلات للعرض؟

أحيانا يكون من الضروري منع شكل مفتوح إذا كانت هناك سجلات لتظهر، على سبيل المثال عند القيام استعلام وليس هناك حاجة لتسجيل، ونحن لسنا في حاجة إلى أن يكون النموذج مفتوحا منذ ليس لدينا أي بيانات للعرض. ذلك ما لدينا للتأكد ما إذا كان هناك سجلات لإظهار وإذا لم يكن هناك عرض رسالة وتعرقل النموذج مفتوحا. كيف؟

فمن السهل أن مجرد وضع رمز أدناه في خصائص النموذج في حدث 'لفتح':

= 0 ثم إذا Form.RecordsetClone.RecordCount
MsgBox "لم يتم العثور على السجلات."، VbExclamation، "خطأ!"
DoCmd.Close acForm، "العثور على بيانات"
خروج الفرعية
نهاية إذا

لمشاهدة مثال تحميل: منع النموذج مفتوحا

شارك في الأمثلة ، أشكال ، وحدات | 2 تعليقات »