[Tasos]

Καλησπέρα σε όλους!

Αγαπητή Μαρία, αν δε βλέπουμε ένα επισυναπτόμενο παράδειγμα (όπως επισημαίνει και ο
Δημήτρης) μας είναι δύσκολο να απαντήσουμε με σαφήνεια.

Η συνάρτηση Sum([Πεδίο1]) σε μια φόρμα αθροίζει τις ΟΛΕΣ τις εγγραφές από Πεδίο1
Το ίδιο ισχύει και στις εκθέσεις που ανάλογα την προβολή το πεδίο θα εμφανίσει είτε#Σφάλμα# είτε το συνολικό άθροισμα.

Γενικά, για να εμφανίσουμε το άθροισμα ενός πεδίου σε επίπεδο σελίδας θα χρειαστούμε:

Στο υποσέλιδο σελίδας ένα πεδίο με το όνομα "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 PageFooter_Print(Cancel As Integer, PrintCount As Integer)
    Me.PageTotals = PageTotal
    PageTotal = 0
End Sub

Αν θέλεις κάτι άλλο δώσε μας περισσότερες λεπτομέρειες.

Καλή συνέχεια!

Φιλικά
Τάσος