ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
الموضوع : كيفية عمل مجموع لكل صفحة في التقرير ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
عند تصميم التقارير وبذات عندما تحتوي التقارير علي حقول تحتوي علي ارقام كالتقارير المتعلقة بالحسابات نحتاج الي اضهار مجموع لكلك صفحة من الصفحات التي يشتمل عليها التقرير وكذلك مجموع كلي لهذة الصفحات وفي بعض الاحيان نكون بحاجة الي إظهار رصيد ماقبلة في رأس الصفحة وهذا هو الموضوع الذي سوف نتطرق الية وصورة التقرير المرفق كما في الشكل التالي
الصورة توضح الحقول المطلوبة ومصدر عنصر التحكم لكل حقل من الحقول مع ملاحظة الحقل باللون الاحمر ان تكون خاصيتة مخفي وخاصية الجمع التراكمي تكون الخيار شامل حتي لايظهر عند معاينة التقرير ويتم جمع القيم السابقةللقيمة الجديدة ونضع الاحداث التالية
Option Compare Database
Public PageSum As Double
---------------------------------------------------------------------------
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
PageSum = 0
End Sub
---------------------------------------------------------------------------
Private Sub Report_Open(Cancel As Integer)
DoCmd.SetWarnings False
End Sub
----------------------------------------------------------------------------
Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer)
On Error Resume Next
PageSum = PageSum + Reports![rep1]![Amount]
End Sub
والمثال المرفق يوضح ذلك
