تنبيه برسالة في حالة كان عدد صفحات التقرير أكثر من واحدة

[nonar]

السلام عليكم .. 
لدي تقرير يحتوى عدة سجلات ... والتقرير قابل للنمو .. 

هل هناك طريقة برمجية لإظهار رسالة تفيد بعدد صفحات التقرير قبل طباعته .؟

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

[أبوبسمله]

وعليكم السلام

ع حسب ما فهمت

فى حدث عند الصفحه ضع الكود التالى

Private Sub Report_Page()
MsgBox "هذا التقرير يتكون من عدد  " & Pages & " صفحه "
End Sub

بالتوفيق

[jjafferr]

وعليكم السلام 🙂

 

29 دقائق مضت, nonar said:

1. هل هناك طريقة برمجية لإظهار رسالة تفيد بعدد صفحات التقرير قبل طباعته .؟

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

.

1. نعم مثل ما كتب اخوي احمد ،

2. نعم تستطيع عمل هذا:

اكتب هذا الكود في "عند تنسيق" "قسم التفصيل" Detail :

if me.pages > 1 then
 msgbox "توجد اكثر من صفحة في التقرير"
end if

 

جعفر

[أبوبسمله]

احسنت اخى ومعلمى العزيز @jjafferr جزاك الله كل خير 💐

[nonar]

الله يعطيكم العافية .. 

جاري التجربة 

[عربي عالمي]

شكراً لكم وياليت كان في الموضوع مرفق للحفظ والاستفادة أكثر .

[أبوبسمله]

21 دقائق مضت, عربي عالمي said:

شكراً لكم وياليت كان في الموضوع مرفق للحفظ والاستفادة أكثر .

اتفضل مثال

بالتوفيق

PageSum.mdb

[عربي عالمي]

شكراً استاذ أحمد الفلاحجى  أبو بسمله    

وتقبل تحياتي .

 

[أبوبسمله]

2 دقائق مضت, عربي عالمي said:

شكراً استاذ أحمد الفلاحجى  أبو بسمله    

وتقبل تحياتي .

 

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا

وجرب طريقه اخى واستاذنا العزيز جعفر على المثال

بالتوفيق اخى

[nonar]

تم تطبيق الأكواد بشكل صحيح ... شكرا لكم 

 

if me.pages > 1 then
 msgbox "توجد اكثر من صفحة في التقرير"
end if