جمع كل صفحة من صفحات التقرير على حدة

اخي الفاضل خالد

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

سأشرح طريقة جمع كل صفحه لوحدها في التقرير

1. يوجد لديك تقرير اسمه q3 نقوم بفتحه في عرض التصميم

2. ننشأ مربع نص جديد غير منضم في تذييل الصفحه اسمه txtPageTotal وهو الذي نرغب في اظهار مجموع كل صفحه فيه

3. يوجد لديك حقل في التقرير اسمه Price وهو خاص بالمبلغ المراد جمعه في اسفل التقرير لمربع النص txtPageTotal

اول خطوه نقوم بها هي اختيار مربع النص txtPageTotal ونضع له مصدر تحكم هذه العباره

=[PageSum]

انتهينا من التقرير ننتقل الان الى الكود

نضغط المفتاحين من لوحة المفاتيح ALT + F11 ليفتح لنا محرر الفيجول بيسك الخاص بالتقرير ونضع هذه الاكواد

هذا الكود خاص بقسم العام في رأس الكود

Option Compare Database
Option Explicit
Public PageSum As Double

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

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
   PageSum = 0
End Sub

هذا الكود خاص بقسم التفصيل طباعة " تفصيل_Print " اذا كانت نسخة الاكسيس لديك انجليزيه فغيرها الى Detail_Print

Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer)
PageSum = PageSum + Reports![q3]![Price]
End Sub

وهذا ملفك بعد التعديل

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

SumPage.rar

أستاذة ولله.

شكرا ً جزيلا يا استاذة زهره على مرورك على الموضوع واجابتك المميزة لكن عند تجريب المثال الذي أرفقته أعطاني في خانة pagesum : #name? كما في الصورة المرفقة . فهل تتكرمين وتعطيني سبب ذلك

اخي الفاضل

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

لقد قمت بتجربة البرنامج وفحصه اكثر من مره ولم يظهر لي الخطأ

هل قمت بالتغيير في حقول التقرير مثلا قمت بتغيير حقل المبلغ ولم تغيره في الكود لهذا السبب يظهر خطأ Name# بمعنى انه لم يتم التعرف على الحقل المطلوب .

هل نسخة الاكسيس لديك انجليزية ام عربية لان هذا البرنامج معمول على اكسيس 2003 العربي انظر للملاحظة التي ذكرتها لك اثناء الشرح .

لنفترض ان البرنامج لم يعمل معك اذا قم متابعة الشرح ونفذ الطريقة على التقرير الذي لديك .

شكراً جزيلا ً يا أستاذة زهراء على اهتمامك .

عملت القاعده بشكل صحح .

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

شكراً جزيلا ً يا أستاذة زهراء على اهتمامك .

عملت القاعده بشكل صحح .

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

اخي الفاضل خالد

هل عرفت اين تم التعديل بحيث انه عمل معك بشكل سليم هذه المره ام انك لا تريد ان تعرف وتتعلم

تم التعديل على الحقل PageSum والكود

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

وتظهر هذه المشكلة لديك عندما يكون برنامج الاكسيس غير كامل اي انه تم تحميله جزئيا

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

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

وفقك الله لما يحب ويرضى

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

شكرا لك يا أختي على هذه المعلومات وقد أردت أن أسئل عن السبب لكني خجلت من كثرة السؤال أما الأن فقد عرفت السبب . وفعلاً البرنامج غير كامل .

بارك الله فيك يا أختي وفي علمك يا أستاذتنا

أستاذتنا الكبيرة ( زهرة )

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

أبارك لك حصولك على لقب المشرف المميز للربع الثاني 2007 :rolleyes:

كما أشكرك على تعاونك معنا وعلى الشرح المفصل

لقد حاولت تطبيق ماتفضلتي به على أوفيس 2007 فظهر لي في مربع النص ( #Name? ) :(

وقد حملت المرفق الذي تفضلتي به وكانت نفس النتيجة !!!!!!

فما هو السبب بارك الله فيك ؟؟

( يبدو أن السبب في الأوفيس 2007 لأني حملت أكثر من مثال وتحصل معي نفس المشكلة )

جزاك الله ألف خير على هذا الشرح وأيضاً أبارك على حصولك على لقب المشرفة المميزة

لكن للتوضيح أنا عندي أكسس 2003 وأيضاً تظهر نفس الخطأ .

هذا فقط للعلم والإحاطة .