[kapetang]

Καλησπέρα στην παρέα

Στη ΒΔ, που επισυνάπτω, υπάρχει μία έκθεση που εμφανίζει:
1) Στις λεπτομέρειες το τρέχον άθροισμα του πεδίου «Poso».
2) Στο υποσέλιδο σελίδας:
2α) Το άθροισμα του πεδίου «Poso» για τις εγγραφές κάθε σελίδας και
2β) Το άθροισμα του πεδίου «Poso» για όλες τις προηγούμενες εγγραφές μέχρι την τελευταία της τρέχουσας σελίδας.
Η περίπτωση 2α παρουσιάζεται μόνο στην εκτύπωση και σε προεπισκόπηση εκτύπωσης.
Για την υλοποίηση χρησιμοποίησα, τον κώδικα του Τάσου και τη διόρθωση που πρότεινε ο Νίκος.

Option Compare Database
Option Explicit

Dim PageTotal As Currency  ' Double?

Private Sub FormDetail_Print(Cancel As Integer, PrintCount As Integer)
    PageTotal = PageTotal + Nz(Me.[Poso])
End Sub

Private Sub FormPageFooter_Print(Cancel As Integer, PrintCount As Integer)
    Me.PageTotals = PageTotal
    PageTotal = 0
End Sub

Για την υλοποίηση των περιπτώσεων 1 και 2β:
Στις λεπτομέρειες πρόσθεσα το αδέσμευτο πλαίσιο κειμένου «txtPoso» και όρισα τις ιδιότητες, προέλευση στοιχείου ελέγχου:=[Poso] και τρέχον άθροισμα: Για την ομάδα.
Στο υποσέλιδο πρόσθεσα το αδέσμευτο πλαίσιο κειμένου «FooterTotalFromStatr» και όρισα την ιδιότητα, προέλευση στοιχείου ελέγχου:=[txtPoso]

Φιλικά/Γιώργος