[kapetang]

Καλημέρα στην παρέα

Η βάση δεδομένων που επισυνάπτεται αποτελεί μια αναβάθμιση της προηγούμενης.
Περιλαμβάνει τρεις φόρμες:
1. Στη φόρμα «frmExports» τα μερικά αθροίσματα εμφανίζονται με τη βοήθεια ενός υπολογιζόμενου πεδίου στο ερώτημα που δεσμεύεται.
2. Στη φόρμα «frmExportsDsum» χρησιμοποιείται ένα αδέσμευτο πλαίσιο κειμένου και η συνάρτηση DSUM . Είναι η λύση που πρότεινε ο Τόλης.
3. Στη φόρμα «frmExportsRS» χρησιμοποιείται ένα αδέσμευτο πλαίσιο ελέγχου και η ακόλουθη συνάρτηση χρήστη:

Public Function fncSubTotal(ID As Long) As Double
    Dim sum As Double
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    If Me.Count > 0 Then
        sum = 0
        rs.MoveFirst
        Do Until rs.EOF
            sum = sum + Nz(rs!ExportAmount, 0)
            If rs!ExportID = Me.ExportID Then Exit Do
            rs.MoveNext
        Loop
        fncSubTotal = sum
    End If
End Function

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

Φιλικά/Γιώργος