مشكلة الحقل المحسوب في الأوفيس 2007

أخي الفاضل .....

أعتقد .. أقول اعتقد .. أن هذه المشكلة قد صادفتني منذ سنة ..

وكان الحل بالنسبة لي ...حل من اقتراحي

اضع ( حقل المجموع ) في ( تذييل التقرير )

ثم أضيف ( مربع نص) في ( صفحة التقرير ) ويكون المصدر من ( حقل المجموع) من تذييل التقرير ...

جرب الطريقة لعلها تكون ناجحة واخبرني ..وبالتوفيق

شكراً لك أخي الجشعمي

طريقتك نجحت في إيجاد مجموع العمود في كامل التقرير .....

لكن المشكلة أنني أريد مجموع عمود في صفحة واحدة ( يكون في كل نهاية صفحة مجموع تلك الصفحة )

أخي الفاضل .. عرفت المطلوب .. ووجدت الحل ....

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

اذا كان هذا المطلوب .. فهو موجود إن شاء الله وسوف أزودك به غدا انشء الله تعالى وان كان في العمر بقية ..؟؟

أنا في انتظارك الله يجزاك ألف الخير

أخي الفاضل / معاوية ..

اليك هذه الطريقة وأرجو أن يفي بالغرض المطلوب ( وهو جمع كل صفحة في التقارير ( منفردة))

لمزيد من المعلومات اكتب في ( البحث ) في أسفل الصفحة ( تذييل التقرير ) ونتيجة البحث ( كيف يمكنني اضافة حقول محسوبة في تذييل الصفحة للتقارير ) للأخ /aeb_br

ولمزيد من المعلومات استخدم هذا الرابط :-

/index.php?showtopic=108493

هذه الطريق بشرح الأخت الفاضلة / زهـــــــــــــــــــــــــــــــــــــــــــــــــرة

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

1. يوجد لديك تقرير اسمه General Spents

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

3. يوجد لديك حقل في التقرير اسمه Rc وهو خاص بالمبلغ المراد جمعه في اسفل التقرير لمربع النص 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![General Spents]![Rc]

End Sub

ملاحظة مهمة جدا ...... أرجو اخباري بآخر التطورات لديكم .. وفيما اذا تححق المطلوب ..!!

متمنين لكم التوفيق .. أخوك الجشعمي

أصلحك الله ............

طريقة الأخت زهرة هي في الموضوع اللي أنا حطيته في مشاركتي الأولى

وهو اللي فيها المشكلة

لكن جيد انك حطيتها هنا لإثراء الموضوع

( ملاحظة بسيطة ) طريقة الأخت زهرة تنفع في الأكسس 2003 ، لكنها مانفعت مع الأكسس 2007

ولو ماحصلت حل ممكن أسوي برنامجي على 2003 وأرتاح ...............

اقتباس

( ملاحظة بسيطة ) طريقة الأخت زهرة تنفع في الأكسس 2003 ، لكنها مانفعت مع الأكسس 2007

أفا والله وانا أم عهود كيف الطريقة ما تنفع مع الأكسيس 2007

إلا تنفع وهي ما تشوف الطريق ولو ما نفعت نجيب لها الف طريقة وطريقه .

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

ترى الموضوع سهل ولا يوجد به اي تعقيد

zaPageSum.rar

الأخ / معاوية