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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Εκθέσεις ] Άθροισμα "σε μεταφορά" στο υποσέλιδο και "από μεταφορά" στην κεφαλίδα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/638-athroisma-se-metafora-sto-yposelido-kai-apo-metafora-stin-kefalida.html)

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

καλημέρα και καλώς σας βρήκα!

σε μια πολύ σημαντική έκθεση που θέλω να φτιάξω, θέλω να εμφανίζω στο τέλος της κάθε σελίδας τα αθροίσματά της σελίδας αυτής και στην κεφαλίδα της το ποσό που μεταφέρω από την προηγούμενη σελίδα.

Δηλαδή:

σελίδα 1
κεφαλίδα - (από μεταφορά)
(άθροιση ποσών)
υποσέλιδο - (σε μεταφορά)= 100

σελίδα 2
κεφαλίδα - (από μεταφορά) = 100 το ποσό της προηγούμενης σελίδας (σε μεταφορά)
(άθροιση ποσών)
υποσέλιδο-σε μεταφορά =(άθροιση ποσών) + (από μεταφορά) = 250

σελίδα 3
κεφαλίδα - (από μεταφορά) = 250 το ποσό της προηγούμενης σελίδας (σε μεταφορά)
(άθροιση ποσών)
υποσέλιδο-σε μεταφορά =(άθροιση ποσών) + (από μεταφορά) = 600

πως μπορώ να το κάνω αυτό;
μπορεί κάποιος φίλος να βοηθήσει;

Σας ευχαριστώ για το χρόνο σας!!!

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

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

Παράθεση:

Αρχική Δημοσίευση από Tasos (Μήνυμα 3003)

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

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

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

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

Φιλικά

Τάσος

Καλησπέρα.
Τον κώδικά σου τον χρησιμοποίησα στην εφαρμογή μου, Ολα Καλά!

Τη βασική αρχή λειτουργίας του δλδ, τον τροποποίησα για τις ανάγκες μου.
Η βοήθεια σου σωτηρία!!!
Σε ευχαριστώ ξανά!