[kapetang]

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

Η ΒΔ που επισυνάπτω παρουσιάζει ένα τρόπο υπολογισμού των μερικών αθροισμάτων, με τα εξής χαρακτηριστικά:
1) Ο υπολογισμός βασίζεται στην ταξινόμηση που εφαρμόζεται κατά τη φόρτωση της φόρμας. Συνεπώς δίνει σωστά αποτελέσματα για οποιαδήποτε ταξινόμηση εφαρμοστεί κατά τη φόρτωση.
2). Δίνει σωστά αποτελέσματα και για την περίπτωση που προσθέσουμε εγγραφές, διαγράψουμε ή τροποποιήσουμε.
Αν, αφού φορτωθεί η φόρμα, αλλάξουμε την ταξινόμηση τα μερικά αθροίσματα δεν θα είναι σωστά. Κάποιες προσπάθειες για την αντιμετώπιση αυτής της αδυναμίας, με έφερε αντιμέτωπο με το ακόλουθο πρόβλημα.
Είναι δυνατόν να ανιχνεύσουμε στον κώδικα το πάτημα των κουμπιών ταξινόμησης (αύξουσας, φθίνουσας) στην κορδέλα;
Έκανα κάποιες προσπάθειες, αλλά δεν τα κατάφερα. Έτσι ζητώ τη βοήθεια του φόρουμ. Ο υπολογισμός των μερικών αθροισμάτων, γίνεται με τον ακόλουθο κώδικα:

Option Compare Database
Option Explicit
Dim sumPrev As Currency

Private Sub Form_AfterDelConfirm(Status As Integer)
    sumPrev = 0
    Me.Requery
End Sub

Private Sub Form_AfterUpdate()
    sumPrev = 0
    Me.Requery
End Sub
Private Sub Form_Load()
    sumPrev = 0
End Sub

Public Function sumTotal(P As Variant) As Variant
    sumTotal = sumPrev + Nz(P, 0)
    sumPrev = sumTotal
End Function

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