24-03-11, 15:32
|
| Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.011
| |
Καλησπέρα σε όλους!
Πάνο καλωσόρισες στο φόρουμ!
Φίλοι μου ούτε ο οδηγός ούτε μια κενή έκθεση μπορεί να βοηθήσει στο πρόβλημα.
Το Άθροισμα εγγραφών μιας σελίδας δεν υποστηρίζεται άμεσα από καμία έκδοση Access μέχρι τώρα εκτός και αν: - Υπάρχουν ομαδοποιημένες εγγραφές όπου το τέλος της ομάδας συμπίπτει με το τέλος της σελίδας.
Εδώ μπορούμε στο υποσέλιδο της σελίδας να εμφανίσουμε το άθροισμα της ομάδας που είναι και το άθροισμα της σελίδας - Προγραμματιστικά με χρήση VBA.
Έστω ότι η λεπτομέρεια της Σελίδας έχει το όνομα FormDetail
και το υποσέλιδο το όνομα FormPageFooter
Στο υποσέλιδο σελίδας δημιουργούμε ένα πεδίο με το όνομα " PageTotals" (παραδειγματικό όνομα).
και στη λειτουργική μονάδα της Έκθεσης τον παρακάτω κώδικα: Κώδικας: Option Compare Database
Option Explicit
Dim PageTotal As Currency ' Double?
Private Sub FormDetail_Print(Cancel As Integer, PrintCount As Integer)
PageTotal = PageTotal + Nz(Me.PageTotals)
End Sub
Private Sub FormPageFooter_Print(Cancel As Integer, PrintCount As Integer)
Me.PageTotals = PageTotal
PageTotal = 0
End Sub
Καλή συνέχεια!
Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών
Τελευταία επεξεργασία από το χρήστη Tasos : 24-03-11 στις 17:03.
|