إلغاء طباعة التقرير إذا لم يحتوي على أية سجلات

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

افتراضيًا، يمكنك طباعة التقارير التي لا تحتوي على سجلات. لحل هذه المشكلة، يمكنك استخدام ماكرو أو تعليمة برمجية لـ Microsoft Visual Basic for Applications (VBA) لكشف غياب السجلات في التقرير ثم إلغاء عملية الطباعة. تشرح الخطوات في هذا المقال كيفية استخدام كلا التقنيتين.

ماذا تريد أن تفعل ؟

استخدام ماكرو ل# الغاء الطباعه

استخدام التعليمات البرمجيه ل VBA ل# الغاء الطباعه

يمكنك إلغاء طباعة التقرير عندما لا يحتوي على أية سجلات. على سبيل المثال، إذا كنت تبدأ في طرح منتجًا جديدًا للبيع، فمن المحتمل أن تكون هناك فترة من الزمن لم تسجل فيها أية مبيعات. ومن ثم، يجب أن تضع في اعتبارك أن بعض التقارير يمكن ألا تحتوي على أي سجلات تفاصيل وأن الدالات التجميعية، مثل الدالة حساب، ربما لا تجد ما تحسبه. ولكي تتمكن من معالجة هذا الموقف، يمكنك إنشاء ماكرو يلغي عملية الطباعة. كما يمكنك أيضًا إضافة سطور قليلة من تعليمة برمجية لـ VBA في مكان جيد لتنفيذ نفس المهمة. VBA هي لغة البرمجة التي يستخدمها Microsoft Office Access 2007.

اضافه الماكرو او التعليمات البرمجيه ل VBA الي التقرير علي Da بلاالبيانات اجراء حدث. Office Access 2007 يقوم ب# تشغيل الحدث علي بلا بيانات عند تشغيل تقرير لا يحتوي علي سجلات. الماكرو و# التعليمات البرمجيه ل VBA الموضحه في هذه المقاله عرض رساله مناسبه و# الغاء طباعه التقرير عند ذلك التقرير لا يحتوي علي بيانات. عند اضافه ماكرو او تعليمات VBA البرمجيه الي اجراء الحدث علي بلا بيانات ، الماكرو او التعليمات البرمجيه ل VBA يتم تشغيلها عند فتح تقرير لا يحتوي علي سجلات. عند النقر فوق موافق ل# اغلاق رساله التنبيه اما، الماكرو يؤدي الي اغلاق تقرير فارغ. عند اضافه تعليمات VBA البرمجيه او الماكرو الي التقرير، لن يتم فتح تقرير فارغ عند محاوله عرض في طريقه عرض التخطيط او طريقه عرض التقرير — و# لكن يمكنك فتح التقرير في طريقه عرض التصميم.

استخدام ماكرو لإلغاء الطباعة

يعرض الماكرو الموضح في هذا المقطع رسالة تنبيه عندما تحاول طباعة تقرير فارغ. إذا قمت بالنقر فوق موافق لإغلاق مربع الرسالة، يلغي الماكرو تلقائيًا عملية الطباعة. وإذا لم تقم بتضمين رسالة تنبيه، فلن يظهر أي شيء إذا حاولت طباعة التقرير — وهو ما يمكن أن يؤدي إلى حيرة مستخدمي التقرير.

إنشاء الماكرو

  1. في "جزء التنقل"، انقر بزر الماوس الأيمن فوق التقرير الذي تريد تغييره ثم انقر فوق طريقة عرض التصميم.

  2. على علامة التبويب تصميم ، في المجموعة إظهار/إخفاء، انقر فوق ورقة الخصائص.

    -أو-

    انقر نقرًا مزدوجًا في الزاوية العليا اليمنى أو اليسرى من التقرير، استنادًا إلى الإعدادات الإقليمية وإعدادات اللغة الخاصة بك.

  3. انقر فوق علامه التبويب حدث، و# في مربع الخاصيه علي بلا بيانات، انقر فوق الزر "منشئ" .

    يظهر مربع الحوار اختيار المنشئ.

  4. انقر فوق منشئ الماكرو، ثم انقر فوق موافق.

    يبدأ مصمم الماكرو ويعرض ماكرو فارغًا.

  5. في الصف الأول من الماكرو، انقر فوق الحقل في عمود الإجراء وحدد MsgBox من القائمة.

  6. أسفل وسيطات الإجراء في المقطع السفلي من مصمم الماكرو، في المربع الرسالة، اكتب النص لرسالة التنبيه الخاصة بك.

    علي سبيل المثال، يمكنك ادخال ما يلي: عدم وجود سجلات الي التقرير.

  7. اختياريًا، قم بتغيير قيمة الوسيطة في المربع الإشارة الصوتية من نعم إلى لا، في القائمة النوع، حدد نوع الرمز الذي تريده أن يظهر في رسالة التنبيه.

  8. في المربع العنوان، اكتب العنوان لرسالة التنبيه.

    علي سبيل المثال، يمكنك ادخال بلا سجلات.

    تظهر التغييرات في الجزء العلوي من مصمم الماكرو — في العمود الوسيطة، بجانب الإجراء MsgBox.

  9. في الجزء العلوي من مصمم الماكرو، انقر فوق الخلية التالية في العمود الإجراء (الخلية الموجودة مباشرًة أسفل MsgBox)، ثم حدد CancelEvent

    يجب أن يظهر الماكرو كما يلي، على الرغم من أنه يمكنك استخدام نص آخر في الوسيطات:

    مثال على ماكرو يلغي عملية طباعة

  10. علي علامه التبويب تصميم، في المجموعه اغلاق، انقر فوق حفظ ب# اسم، و# استخدم مربع الحوار حفظ ب# اسم ل# اعطاء اسم الماكرو.

  11. اغلق الماكرو. في حالة ظهور رسالة تنبيه ومطالبتك بما إذا كنت تريد حفظ التغييرات التي تمت على الماكرو وخاصية التقرير أم لا، انقر فوق نعم، وتابع إلى الخطوات التالية لاختبار الماكرو.

اختبار الماكرو

  • في "جزء التنقل"، انقر بزر الماوس الأيمن فوق التقرير الذي يحتوي على الماكرو وانقر فوق طباعة. استنادًا إلى الخيارات التي حددتها، يجب أن تظهر رسالة خطأ كالتالي:

    صورة تعرض مربع رسالة يظهر عند عدم وجود بيانات

    عند النقر فوق موافق لإغلاق الرسالة، يوقف الإجراء CancelEvent عملية الطباعة. ونظرًا لأنك لم تحدد أي حدث آخر (مثل فتح التقرير للعرض)، يتم إغلاق التقرير.

اعلي الصفحه

استخدام التعليمة البرمجية لـ VBA لإلغاء الطباعة

تعمل التعليمة البرمجية لـ VBA الموضحة هنا مثل الماكرو الموضح في المقطع السابق — فهي تعرض رسالة تنبيه عندما تريد فتح تقرير فارغ، ثم تلغي عملية الطباعة عندما تقوم بإغلاق رسالة التنبيه.

إضافة تعليمة برمجية لـ VBA

  1. في "جزء التنقل"، انقر بزر الماوس الأيمن فوق التقرير الذي تريد تغييره ثم انقر فوق طريقة عرض التصميم.

    ملاحظة: استخدم هذا الاجراء ل# اكمال تقرير لا يحتوي علي سجلات.

  2. على علامة التبويب تصميم ، في المجموعة إظهار/إخفاء، انقر فوق ورقة الخصائص.

    -أو-

    انقر نقرًا مزدوجًا في الزاوية العليا اليمنى أو اليسرى من التقرير، استنادًا إلى الإعدادات الإقليمية وإعدادات اللغة الخاصة بك.

  3. انقر فوق علامه التبويب حدث، و# في مربع الخاصيه علي بلا بيانات، انقر فوق الزر "منشئ" .

    يظهر مربع الحوار اختيار المنشئ.

  4. انقر فوق منشئ التعليمات البرمجية، ثم انقر فوق موافق.

    يبدأ محرر Visual Basic ويعرض إجراء حدث فارغ.

  5. اكتب التعليمة البرمجية التالية في محرر Visual Basic بحيث يظهر الإجراء Report_NoData تمامًا كما يلي بعد الانتهاء:

    Private Sub Report_NoData (Cancel As Integer)
    MsgBox "There are no records to report", vbExclamation, "No Records"
    Cancel = True
    End Sub
  6. عند الانتهاء، انقر فوق ملف، و# من ثم انقر فوق حفظ.

  7. انقر فوق ملف، و# من ثم انقر فوق الاغلاق و# الرجوع الي Microsoft Office Access.

  8. اغلق فتح تقرير، و# من ثم انقر فوق نعم ل# التاكيد الحفظ.

  9. في "جزء التنقل"، انقر بزر الماوس الأيمن فوق التقرير الذي قمت بتغييره للتو ثم انقر فوق طباعة. ستشاهد رسالة كما يلي:

صورة تعرض مربع رسالة يظهر عند عدم وجود بيانات

يستخدم الإجراء Report_NoData الدالة MsgBox لعرض لا توجد سجلات للتقرير والزر موافق. عندما تنقر فوق موافق، يعطي السطر "Cancel=True" تعليمات لـ Access لإلغاء التقرير. Cancel هي وسيطة يتم تمريرها تلقائيًا إلى إجراء الحدث ويقوم Access دائمًا بالتحقق منها عندما يكتمل إجراء الحدث.

اعلي الصفحه

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×