كيف اجمع كل عمود في كل صفحة

صباح النور

مرفق طية حل فهل هذا ما تريد

Profit27-28-29.zip

هذا كذلك حل آخر، يراعي تعدد الصفحات، والحصول على مجموع كل صفحة. الفكرة كلها في الوحدة النمطية للتقرير:

Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
    txtRSTotal = 0
    txt27Total = 0
    txt28Total = 0
    txt29Total = 0
    txtGrandTotal = 0
End Sub

Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer)
    If PrintCount = 1 Then
        txtRSTotal = txtRSTotal + rs
        txt27Total = txt27Total + r27
        txt28Total = txt28Total + r28
        txt29Total = txt29Total + r29
        txtGrandTotal = txtGrandTotal + totel
    End If
End Sub

كما في الملف المرفق، والله أعلم.

الارباح 27-28-29 - نسخة.rar

المحاسب الجديد كتب:

صباح النور

مرفق طية حل فهل هذا ما تريد

Profit27-28-29.zip

الله يعطيك العافية وشكرا على مرورك

أحمد مبارك الحيقي كتب:

هذا كذلك حل آخر، يراعي تعدد الصفحات، والحصول على مجموع كل صفحة. الفكرة كلها في الوحدة النمطية للتقرير:

Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
    txtRSTotal = 0
    txt27Total = 0
    txt28Total = 0
    txt29Total = 0
    txtGrandTotal = 0
End Sub

Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer)
    If PrintCount = 1 Then
        txtRSTotal = txtRSTotal + rs
        txt27Total = txt27Total + r27
        txt28Total = txt28Total + r28
        txt29Total = txt29Total + r29
        txtGrandTotal = txtGrandTotal + totel
    End If
End Sub

كما في الملف المرفق، والله أعلم.

أتيت بالحل المناسب يعطيك العافية ويجزاك الف خير وينفع العلم بك وينفع المؤمنين بعلمك وينفعك بعلمك لما يحب ويرضى

AL-YASEER-2007 كتب:

الله يعطيك العافية وشكرا على مرورك

أتيت بالحل المناسب يعطيك العافية ويجزاك الف خير وينفع العلم بك وينفع المؤمنين بعلمك وينفعك بعلمك لما يحب ويرضى

**********************

اشكرك على الحل الرائع

لكن لاتستطيع ان تعمل عليه عمليات اخرى كتحويله من رقم إلى كتابه حيث والحدث عند الطباعة