Εμφάνιση ενός μόνο μηνύματος
  #7  
Παλιά 24-03-11, 15:32
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού 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.
Απάντηση με παράθεση