كود حساب عدد صفحات تقرير

[محمد الصالح]

السلام عليكم و رحمة الله تعالى و بركاته أخوتي الكرام حياكم الله.

أريد الحصول على كود يقوم بحساب عدد الصفحات في تقرير و ليس عدد السجلات.

جزاكم الله كل خير

[REDA.M.A]

السلام عليكم

في تذييل الصفحة   " اجمالي صفحة  " & [Page]  =     

و الله الموفق       

تم تعديل فبراير 13, 2017 بواسطه رضا محمد على احمد

[أمير2008]

اذا كنت تقصد اظهار عدد الصفحات داخل التقرير:

فاستخدم معالج  انشاء التقرير وسوف يظهر تلقائيا رقم الصفحة واجمالي الصفحات

واذا كنت تقصد اظهار عدد الصفحات داخل نموذج :

Private Sub Command0_Click()
strReportName = "table1"
DoCmd.OpenReport strReportName, acViewPreview, , , acHidden
MsgBox (Reports(strReportName).Pages)
DoCmd.Close acReport, strReportName, acSaveNo
End Sub

 

[صالح حمادي]

السلام عليكم

4 ساعات مضت, أمير2008 said:

اذا كنت تقصد اظهار عدد الصفحات داخل التقرير:

فاستخدم معالج  انشاء التقرير وسوف يظهر تلقائيا رقم الصفحة واجمالي الصفحات

واذا كنت تقصد اظهار عدد الصفحات داخل نموذج :

Private Sub Command0_Click()
strReportName = "table1"
DoCmd.OpenReport strReportName, acViewPreview, , , acHidden
MsgBox (Reports(strReportName).Pages)
DoCmd.Close acReport, strReportName, acSaveNo
End Sub

أخي أمير هذا الكود سوف يقوم بإعطاء نتيجة عدد الصفحات 0

و سوف يعمل الكود بشكل جيد إذا أضفنا للتقرير مربع نص و نكتب به [Pages] مع العلم أن تسمية مربع النص غير مهمة سمه كما تشاء

[أمير2008]

كما قلت لك اذا كنت تريده بالتقرير فسوف تجده اذا سويته بالمعالج

ومعه ايضا التاريخ والوقت وربما الطقس والمناخ ههههههه

بالنسبة لاظهاره بالنموذج أرجو ارفاق نسخة من برنامجك بها التقرير لمعرفة سبب الخطأ

 

[صالح حمادي]

أخي أمير لاحظ جيدا هذا المثال:

1- قم بفتح البرنامج و أضغط على زر عدد صفحات التقرير سوف ترى أنه يعطيك العدد الصحيح للصفحات.

2-افتح التقرير في وضع التصميم و قم بإزالة مربع نص عدد الصفحات [Pages] ثم افتح النموذج و اضغط على زر عدد الصفحات سوف تلاحظ أنه يعطيك النتيجة 0

إليك المرفق.

 

عدد الصفحات.rar

[أمير2008]

نعم فهمت

أنت تريد طريقة لحساب عدد صفحات التقرير بدون استخدام  مربع نص مصدر التحكم =[Pages]

سأجرب طريقة أخرى وأوافيك إن شاء الله

[صالح حمادي]

11 ساعات مضت, أمير2008 said:

نعم فهمت

أنت تريد طريقة لحساب عدد صفحات التقرير بدون استخدام  مربع نص مصدر التحكم =[Pages]

سأجرب طريقة أخرى وأوافيك إن شاء الله

أخي أمير حياك الله.

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

أما بالنسبة لطلب السائل فهو أدرى بذلك لا أدري إن كان هذا ما يبحث عنه أم لا.

[محمد الصالح]

أساتذتي الكرام رضا محمد و أمير و صالح شكرا لكم و بارك الله فيكم جميعا

أخي أمير ملاحظات الأستاذ صالح في محلها و هو يفي بالغرض حاليا.

لكن إذا فيه كود يقوم بحساب عدد الصفحات بدون مربع النص فأفدنا به أفادك الله من علمه الواسع إن شاء الله

 

[أمير2008]

أ/ محمد الصالح و أ/ صالح حمادي

بارك الله فيكم.

هناك أكثر من طريقة :

طريقة 1 : مربع نص بالتقرير  مصدر التحكم = [Pages]

طريقة 2 : مربع نص بالتقرير  مصدر التحكم = [Page]

طريقة 3 : بدون مربع نص بالتقرير

ويكون باستخدام كود يتعامل مع النموذج كنموذج ومع التقرير كتقرير

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

بمعنى :

أمر فتح التقرير

أمر الذهاب للصفحة الأخيرة

أمر معرفة رقم الصفحة الأخيرة

أمر اغلاق التقرير

وأكيد الطريقة هذه ستنجح إن شاء الله