[ تمت الإجابة ]مجموع كل صفحة يظهر اسفل الصفحة في التقرير

السلام عليكم

إليك التعديل

___________________.rar

اختي الفاضلة

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

اولا جزاك الله خيرا على هذا الرد وجعله في ميزان حسناتك

ثانيا التعديل الذي وضعتيه على الموضوع يعطي مجموع التقرير كاملا وانا اريد مجموع كل صفحة لوحده يظهر اسفل الصفحة وليس مجموع التقرير كاملا

زادنا الله والجميع تقا وعلما

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

جرب اعمل مثل هذا المثال

Statement.rar

السلام عليكم

تفضل مثالك

مجموع كل صفحة لوحده يظهر اسفل الصفحة

وتقبل تحيات أخوك أبو خليل ،،

___________________.rar

اخي الفاضل ابو خليل

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

اولا انا آسف عن تعرفي عليك من خلال لقبك حيث حسبته صبحا فأنا في اللغة الإنجليزية ضعيف جدا

ثانيا جزاك الله عني خيرا في مبادرتك للرد على سؤالي وهذا ليس بغريب على اعضاء هذا المنتدى المبارك بإذن الله الأكارم امثالك وجعل ذلك في ميزان حسناتك

ثالثا قمت بتنزيل الملف الذي ارفقت لي (سلمت اناملك)وقمت بفكه ثم تشغيله فظهر لي في حقل مجموع الصفحة #Name?

فلا ادري مالمشكلة وفقك الله لما يحبه ويرضاه واكرر اسفي مرة اخرى

اخي الفاضل المحاسب الجديد

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

جزاك الله خيرا على المثال لكنه شبه مقفل ليس فيه شريط القوائم ولا امكانية معرفة الخصائص او الوصول الى الأكواد فالمبتدئ مثلي يصعب عليه التعامل مع مثل هذه الحالات

وفق الله الجميع لما فيه صلاح ديننا ودنيانا

اخي الفاضل adb1423

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

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

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

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

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

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

كود

=[PageSum]

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

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

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

كود

Option Compare Database
Option Explicit
Public PageSum As Double

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

كود

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

هذا الكود خاص بقسم التفصيل طباعة " تفصيل_Print "

كود

 Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
PageSum = PageSum + Reports![Report1]![Discount]
End Sub

SumEachPage.rar

استاذي الفاضل محمد

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

جزاك الله عني خيرا على اجابتك الشافيه الكافيه لسؤالي جعل الله ذلك في ميزان حسناتك ورزقنا الإخلاص والسداد في القول والعمل وغفر لك ولوالديك واصلح ذريتك

فعلا هذا مااريده

وفق الله الجميع لما فيه صلاح ديننا ودنيانا

اخوتي الكرام من ذوي الخبرة

حاولت كثيرا في استخدام هذه الطريقة على الاوفيس 2007 و 2010 ولم تعمل وتعمل فقط على الاوفيس 2003

هل جد الحل عند اهل الخبرة ............ جزاكم الله كل خير