التجميع فى نهاية كل صفحة

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

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

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

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

اللهم اجعلة في ميزان ح