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

[خير الايمان]

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

كشف 1.rar

[ابوخليل]

يا رعاك الله يا خير الإيمان

المثال على اسمه مثال  بارك الله فيك

اكثر من 4000 سجل كثيرة والحجم كبير وتكون عبئا على المنتدى

---------------------------

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

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

Public intPageCount As Integer

Private Sub Report_Open(Cancel As Integer)
intPageCount = 0
End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
intPageCount = intPageCount + 1
End Sub

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
  txtPageCount = intPageCount
        intPageCount = 0
End Sub

 

كشف2.rar

[خير الايمان]

استاذنا الخلوق كل الشكر والتقدير على الرد

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

تقديري

تم تعديل فبراير 19 بواسطه خير الايمان