[Tasos]

Καλησπέρα Προκόπη και καλωσόρισες στο φόρουμ!

Έστω ότι στην κεφαλίδα της σελίδας έχεις ένα πεδίο κειμένου με το όνομα "PreviousTotal"
και στο υποσέλιδο της σελίδας ένα πεδίο με το όνομα "NewSubTotal".

Ο παρακάτω κώδικας πιστεύω ότι θα σε εξυπηρετήσει:

Option Compare Database
Option Explicit
Dim subTot As Currency

Private Sub PageHeader_Print(Cancel As Integer, PrintCount As Integer)
    Me.PreviousTotal.Visible = subTot <> 0
    Me.PreviousTotal = Nz(Me.PreviousTotal, 0) + subTot
    subTot = 0
End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    subTot = subTot + Me.Field1
End Sub

Private Sub PageFooter_Print(Cancel As Integer, PrintCount As Integer)

'    If Me.Page = Me.Pages Then
'        Me.NewSubTotal.Visible = False
'        Exit Sub ' Ίσως χρειαστεί να μήν εμφανίζεται στο τέλος της τελευταίας σελίδας.
'    End If
    Me.NewSubTotal = Nz(Me.PreviousTotal, 0) + subTot
End Sub

όπου:

• PageHeader = το όνομα της κεφαλίδας
• Detail = το όνομα της λεπτομέρειας
• PageFooter = το όνομα του υποσέλιδου
• Field1 = το όνομα του πεδίου προς υπολογισμό

Καλή συνέχεια

Τάσος

ΥΓ. Φρόντισε στο μέλλον να μη βάζεις σε περισσότερα φόρουμ την ίδια ερώτηση!
Εγώ τουλάχιστον δεν θα σου ξανααπαντήσω αν το συνεχίσεις έτσι!
Δεν έχεις κανένα δικαίωμα να απασχολείς τους καλοπροαίρετους απαντητές από 4 5 φόρουμ με την ερώτηση σου
στερώντας έτσι την ευκαιρία από τους υπόλοιπους φίλους να πάρουν κι εκείνοι σχετικά γρήγορα μια απάντηση!