بشكل افتراضي، يمكنك طباعة التقارير التي لا تحتوي على سجلات. لحل هذه المشكلة، يمكنك استخدام ماكرو أو تعليمة برمجية Microsoft Visual Basic for Applications (VBA) للكشف عن عدم وجود سجلات في تقرير ثم إلغاء عملية الطباعة. توضح الخطوات الواردة في هذه المقالة كيفية استخدام كلتا التقنيتين.
ماذا تريد أن تفعل؟
ربما ترغب في إلغاء طباعة تقرير عندما لا يحتوي على أي سجلات. على سبيل المثال، إذا بدأت في بيع منتج جديد، فمن المحتمل أن تكون هناك فترة زمنية لم تقم فيها بعد بتسجيل أي مبيعات. لذلك، يجب مراعاة إمكانية أن بعض تقاريرك قد لا تحتوي على أي سجلات تفاصيل وأن الدالات التجميعية، مثل دالة Count ، قد لا تحتوي على أي شيء يمكن حسابه. للتعامل مع مثل هذا التكرار بأمان، يمكنك إنشاء ماكرو يلغي مهمة الطباعة. يمكنك أيضا إضافة بضعة أسطر من التعليمات البرمجية ل VBA الموضوعة بعناية للقيام بنفس الشيء. VBA هي لغة البرمجة التي تستخدمها Access.
يمكنك إضافة إما الماكرو أو التعليمات البرمجية ل VBA إلى إجراء حدث On No Data للتقرير. يقومAccess بتشغيل الحدث On No Data كلما قمت بتشغيل تقرير لا يحتوي على سجلات. يعرض الماكرو ورمز VBA الموضح في هذه المقالة رسالة مناسبة ويلغون طباعة التقرير عندما لا يحتوي هذا التقرير على أي بيانات. عند إضافة ماكرو أو رمز VBA إلى إجراء الحدث On No Data ، يتم تشغيل الماكرو أو التعليمات البرمجية ل VBA كلما فتحت تقريرا لا يحتوي على سجلات. عند النقر فوق موافق لإغلاق أي من رسائل التنبيه، يقوم الماكرو أيضا بإغلاق التقرير الفارغ. عند إضافة إما الماكرو أو التعليمات البرمجية ل VBA إلى التقرير، لن يتم فتح تقرير فارغ عند محاولة عرضه في طريقة عرض التقرير أو طريقة عرض التخطيط — ولكن يمكنك فتح التقرير في طريقة عرض التصميم.
استخدام ماكرو لإلغاء الطباعة
يعرض الماكرو الموضح في هذا القسم رسالة تنبيه عند محاولة طباعة تقرير فارغ. عند النقر فوق موافق لإغلاق مربع الرسالة، يقوم الماكرو تلقائيا بإلغاء عملية الطباعة. إذا لم تقم بتضمين رسالة تنبيه، فستظهر كما لو لم يحدث أي شيء عند محاولة طباعة التقرير - وهو أمر من المحتمل أن يخلط بين مستخدمي التقرير.
إنشاء الماكرو
-
في جزء التنقل، انقر بزر الماوس الأيمن فوق التقرير الذي تريد تغييره وانقر فوق طريقة عرض التصميم.
-
على علامة التبويب تصميم ، في المجموعة إظهار/إخفاء، انقر فوق ورقة الخصائص.
-أو-
انقر نقرا مزدوجا فوق المربع الموجود في الزاوية العلوية اليمنى أو اليمنى من التقرير، استنادا إلى الإعدادات الإقليمية وإعدادات اللغة.
-
انقر فوق علامة التبويب حدث ، وفي المربع الخاصية عدم وجود بيانات ، انقر فوق
يظهر مربع الحوار اختيار منشئ .
-
انقر فوق منشئ الماكرو، ثم انقر فوق موافق.
يبدأ مصمم الماكرو ويعرض ماكرو فارغ.
-
في القائمة المنسدلة لإجراءات الماكرو في نافذة تصميم الماكرو، حدد MessageBox من القائمة.
-
في المربع رسالة ، اكتب نص رسالة التنبيه.
على سبيل المثال، يمكنك إدخال ما يلي: لا توجد سجلات للإبلاغ.
-
اختياريا، قم بتغيير قيمة الوسيطة في مربع Beep من Yes إلى No ، وفي القائمة Type ، حدد نوع الأيقونة التي تريد ظهورها في رسالة التنبيه.
-
في المربع عنوان ، اكتب عنوان رسالة التنبيه.
على سبيل المثال، يمكنك إدخال بلا سجلات.
-
حدد القائمة المنسدلة لإجراءات الماكرو أسفل إجراء MessageBox ، ثم حدد CancelEvent.
-
على علامة التبويب تصميم ، في المجموعة إغلاق ، انقر فوق حفظ.
-
على علامة التبويب تصميم، في المجموعة إغلاق، انقر فوق إغلاق. إذا ظهرت رسالة تنبيه وتساءلت عما إذا كنت تريد حفظ التغييرات على الماكرو وخاصية التقرير، فانقر فوق نعم، وأغلق التقرير، واحفظ التغييرات إذا تمت مطالبتك بذلك، وتابع الخطوات التالية لاختباره.
اختبار الماكرو
-
في جزء التنقل، انقر بزر الماوس الأيمن فوق التقرير الذي يحتوي على الماكرو وانقر فوق طباعة. استنادا إلى الخيارات التي اخترتها، يعرض Access رسالة تنبيه.
عند النقر فوق موافق لإغلاق الرسالة، يوقف إجراء CancelEvent عملية الطباعة. نظرا لأنك لم تحدد أي حدث آخر (مثل فتح التقرير لعرضه)، يتم إغلاق التقرير.
استخدام التعليمات البرمجية ل VBA لإلغاء الطباعة
تعمل التعليمات البرمجية ل VBA الموضحة هنا تماما مثل الماكرو الموضح في القسم السابق — حيث تعرض رسالة تنبيه عند فتح تقرير فارغ، ثم تلغي عملية الطباعة عند إغلاق رسالة التنبيه.
إضافة التعليمات البرمجية ل VBA
-
في جزء التنقل، انقر بزر الماوس الأيمن فوق التقرير الذي تريد تغييره وانقر فوق طريقة عرض التصميم.
ملاحظة: لإكمال هذا الإجراء، استخدم تقريرا لا يحتوي على سجلات.
-
على علامة التبويب تصميم ، في المجموعة إظهار/إخفاء، انقر فوق ورقة الخصائص.
-أو-
انقر نقرا مزدوجا فوق المربع الموجود في الزاوية العلوية اليمنى أو اليمنى من التقرير، استنادا إلى الإعدادات الإقليمية وإعدادات اللغة.
-
انقر فوق علامة التبويب حدث ، وفي المربع الخاصية عدم وجود بيانات ، انقر فوق
يظهر مربع الحوار اختيار منشئ .
-
انقر فوق منشئ التعليمات البرمجية، ثم انقر فوق موافق.
يبدأ محرر Visual Basic ويعرض إجراء حدث فارغ.
-
اكتب التعليمات البرمجية التالية في محرر 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 -
عند الانتهاء، انقر فوق ملف، ثم انقر فوق حفظ.
-
انقر فوق ملف، ثم انقر فوق إغلاق والعودة إلى Microsoft Access.
-
أغلق التقرير المفتوح، ثم انقر فوق نعم لتأكيد الحفظ.
-
في جزء التنقل، انقر بزر الماوس الأيمن فوق التقرير الذي قمت بتغييره للتو وانقر فوق طباعة. استنادا إلى الخيارات التي اخترتها، يعرض Access رسالة تنبيه.
يستخدم الإجراء Report_NoData الدالة MsgBox لعرض الزر لا توجد سجلات للإبلاغ عن الرسالة وزر موافق . عند النقر فوق موافق، يوجه السطر "إلغاء=صواب" في الإجراء Access لإلغاء التقرير. الإلغاء هو وسيطة يتم تمريرها تلقائيا إلى إجراء الحدث ويتم التحقق منها دائما بواسطة Access عند اكتمال إجراء الحدث.
