Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Άθροισμα "σε μεταφορά" στο υποσέλιδο και "από μεταφορά" στην κεφαλίδα
καλημέρα και καλώς σας βρήκα! σε μια πολύ σημαντική έκθεση που θέλω να φτιάξω, θέλω να εμφανίζω στο τέλος της κάθε σελίδας τα αθροίσματά της σελίδας αυτής και στην κεφαλίδα της το ποσό που μεταφέρω από την προηγούμενη σελίδα. Δηλαδή: σελίδα 1 κεφαλίδα - (από μεταφορά) (άθροιση ποσών) υποσέλιδο - (σε μεταφορά)= 100 σελίδα 2 κεφαλίδα - (από μεταφορά) = 100 το ποσό της προηγούμενης σελίδας (σε μεταφορά) (άθροιση ποσών) υποσέλιδο-σε μεταφορά =(άθροιση ποσών) + (από μεταφορά) = 250 σελίδα 3 κεφαλίδα - (από μεταφορά) = 250 το ποσό της προηγούμενης σελίδας (σε μεταφορά) (άθροιση ποσών) υποσέλιδο-σε μεταφορά =(άθροιση ποσών) + (από μεταφορά) = 600 πως μπορώ να το κάνω αυτό; μπορεί κάποιος φίλος να βοηθήσει; Σας ευχαριστώ για το χρόνο σας!!! |
#2
| ||||
| ||||
Καλησπέρα Προκόπη και καλωσόρισες στο φόρουμ! Έστω ότι στην κεφαλίδα της σελίδας έχεις ένα πεδίο κειμένου με το όνομα "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
Καλή συνέχεια Τάσος ΥΓ. Φρόντισε στο μέλλον να μη βάζεις σε περισσότερα φόρουμ την ίδια ερώτηση! Εγώ τουλάχιστον δεν θα σου ξανααπαντήσω αν το συνεχίσεις έτσι! Δεν έχεις κανένα δικαίωμα να απασχολείς τους καλοπροαίρετους απαντητές από 4 5 φόρουμ με την ερώτηση σου στερώντας έτσι την ευκαιρία από τους υπόλοιπους φίλους να πάρουν κι εκείνοι σχετικά γρήγορα μια απάντηση!
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών Τελευταία επεξεργασία από το χρήστη Tasos : 24-06-10 στις 15:52. |
#3
| |||
| |||
Παράθεση:
έχεις απόλυτο δίκιο! σε ευχαριστώ πολύ για την απάντηση, σε ευχαριστώ περισσότερο-ειλικρινά- για την επισήμανση... |
#4
| ||||
| ||||
Καλημέρα Προκόπη! Θα έλεγα ότι έκανες καλή αρχή και σ ευχαριστώ για το ήθος σου την πολύ καλή επεξήγηση του προβλήματος σου και για τη συμμετοχή σου στο φόρουμ! Το να βάζει κανείς το ερώτημα του σε περισσότερα φόρουμ δεν είναι κάτι το απαγορευμένο, ανήκει όμως στους "άγραφους κανόνες" λειτουργίας όλων των φόρουμ για τους λόγους που εξηγήσαμε. Τα ξαναλέμε λοιπόν. Φιλικά Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών |
#5
| |||
| |||
Καλησπέρα. Τον κώδικά σου τον χρησιμοποίησα στην εφαρμογή μου, Ολα Καλά! Τη βασική αρχή λειτουργίας του δλδ, τον τροποποίησα για τις ανάγκες μου. Η βοήθεια σου σωτηρία!!! Σε ευχαριστώ ξανά! |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[ Ερωτήματα ] συνεχεια θεματος "αθροισμα ομοειδων" | ευη79 | Access - Ερωτήσεις / Απαντήσεις | 6 | 28-08-14 23:03 |
Η συνάρτηση "Date" στην Access του Office 2013 | gmax | Access - Ερωτήσεις / Απαντήσεις | 4 | 16-03-13 07:16 |
Εμφανιση "Μηνός" και "Έτους" σε πίνακα και ερώτημα | antonib | Access - Ερωτήσεις / Απαντήσεις | 4 | 24-09-12 21:58 |
[ Πίνακες ] Εμφάνιση πίνακα "παρασκηνίου" στο "προσκήνιο" | PanosPan | Access - Ερωτήσεις / Απαντήσεις | 6 | 12-10-10 16:33 |
Η ώρα είναι 20:21.