[ Εκθέσεις ] Άθροισμα "σε μεταφορά" στο υποσέλιδο και "από μεταφορά" στην κεφαλίδα

[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 φόρουμ με την ερώτηση σου
στερώντας έτσι την ευκαιρία από τους υπόλοιπους φίλους να πάρουν κι εκείνοι σχετικά γρήγορα μια απάντηση!

[prokopino]

Αρχική Δημοσίευση από Tasos

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

κακή αρχή από μέρους μου....
έχεις απόλυτο δίκιο!
σε ευχαριστώ πολύ για την απάντηση, σε ευχαριστώ περισσότερο-ειλικρινά- για την επισήμανση...

[Tasos]

Καλημέρα Προκόπη!
Θα έλεγα ότι έκανες καλή αρχή και σ ευχαριστώ
για το ήθος σου την πολύ καλή επεξήγηση του προβλήματος σου και για τη συμμετοχή σου στο φόρουμ!
Το να βάζει κανείς το ερώτημα του σε περισσότερα φόρουμ δεν είναι κάτι το απαγορευμένο, ανήκει όμως στους "άγραφους κανόνες" λειτουργίας όλων των φόρουμ για τους λόγους που εξηγήσαμε.

Τα ξαναλέμε λοιπόν.

Φιλικά

Τάσος