كود لمنع طباعة الصفحات الخالية من البيانات عند طباعة التقرير

[ahmed draz]

السلام عليكم ورحمة الله

لو أن لدي عدة صفحات في تقرير وعند الطباعة فانه يطبع كل الصفحات ولكن اريد طباعة التقارير التي يوجد بها بيانات فقط وعند بحثي في الموضوع وجدت أنه يتم وضع كود في تصميم التقرير في حدث On No data ولكنى لم أفلح في الامر فبرجاء المساعدة وجزاكم الله خيرا.

[محمد احمد لطفى]

تفضل  بالتوفيق

 

في حدث "On NoData" اكتب
 

msgbox "لا توجد بيانات"
cancel=true

أو

MsgBox "لا توجد بيانات في التقرير", , "تنبيه"
DoCmd.CancelEvent

[ahmed draz]

شكرا جزيلا لسرعة الرد 

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

[محمد احمد لطفى]

سؤال التقرير فيه صفحات ممتلئة و صفحات فارغة

واذا كانت الاجابة التقرير لا يوجد بيانات 
اكتب مباشرة

DoCmd.CancelEvent

تم تعديل مايو 15 بواسطه محمد احمد لطفى

[ahmed draz]

سؤال التقرير فيه صفحات ممتلئة و صفحات فارغة؟

نعم

وعند وضع 

DoCmd.CancelEvent

عند الحدث On No data لا تظهر رسالة و يقوم بطباعة كل التقرير بصفحاته الفارغة سواءا على الطابعة أو على شكل PDF

تم تعديل مايو 15 بواسطه ahmed draz

[kkhalifa1960]

مشاركة مع استاذ @محمد احمد لطفى مصدر التقرير استعلام وعند البارامتر المهم ضع تحته الشرط (Is NotNull) .

[Foksh]

أخي الكريم اهلاً وسهلاً بك ,, وعتذر إن لم يحالفني الحظ بالمساعدة ..

ارسل مرفقك وأعاننا الله على الإفادة 😊

 

أو لعدم وجود مرفق ومشاركة مع الأساتذة كفكرة ، هل جربت استخدام الأمر HasData في التقرير ؟

إليك كمثال الكود التالي :-

 

If Me.HasData = False Then
Me.Visible = True
Else
Me.Visible = False
End If

 

تم تعديل مايو 18 بواسطه Foksh

[ahmed draz]

اخي الكريم 

شكرا جزيلا اخونا الكريم Foksh  مرسل لحضرتكم المرفق.

1.rar

[Foksh]

جرب فكرتي هذه أخي @ahmed draz ،،

1.zip

 

تم تعديل مايو 18 بواسطه Foksh
تعديل المشاركة السابقة وتلافي الخطأ

[ahmed draz]

اخي العزيز Foksh

تحياتي لحضرتك... للأسف لم أفهم الفكرة وخصوصاً أنه عند الطباعة لايقوم إلا بطباعة ورقة واحدة فارغة من البيانات على الشكل التالي

و سأوضح أمرا لم اوضحة مسبقاً بأنه يوجد فرز بالأسم والمجموعة في التقرير لهذا تظهر الصفحات الفارغة

1.pdf

وهذه مشاركة سابقة لأحد الاخوة يشرح فيها المشكلة ويقول أنه وجد الحل ولكنه لم يعمل عندي ولم أفهم المشكلة أم انني لم أفهم الشرح

 

تم تعديل مايو 18 بواسطه ahmed draz

[أبوبسمله]

السلام عليكم

مشاركه مع اخوانى

هل هذا ما تريد جرب واخبرنا

 

11.accdb

[ahmed draz]

أحسنت أخي أبو بسملة

هذا هو المطلوب بالضبط وجزاك الله خيرا

والشكر موصول لأخونا الاستاذ الفاضل Foksh

(ولكن لو تكرمت أوضحت لي مكان التعديل أو الإضافة) 

تم تعديل مايو 18 بواسطه ahmed draz

[ahmed draz]

جزاكم الله خيرا جميعاً ... ماشاء الله المنتدى ذاخر بالخبراء وعامر بالعلم دائما إن شاء الله

[أبوبسمله]

14 دقائق مضت, ahmed draz said:

أحسنت أخي أبو بسملة

هذا هو المطلوب بالضبط وجزاك الله خيرا

احسن الله اليك , واياكم

الحل كما ذكره لك اخى @kkhalifa1960 

ادخل لعرض تصميم التقرير ومنه ع مصدر السجلات وانظر تحت حقل المسلسل

بالتوفيق

[ahmed draz]

أخي الكريم أبوبسمله

لطفاً... ولو تكرمت وأوضحت لي المكان بالتفصيل لأني لا استطيع الوصول للتعديل

____________________________________________________________________________________

 

kkhalifa1960 مصدر التقرير استعلام وعند البارامتر المهم ضع تحته الشرط (Is NotNull)

أبوبسمله ادخل لعرض تصميم التقرير ومنه ع مصدر السجلات وانظر تحت حقل المسلسل