Αθροισμα σε πεδίο λίστας μετά απο φιλτράρισμα

[bill72]

Καλησπέρα σε όλα τα παιδιά , θα ήθελα μια βοήθεια γιατί η γνώσεις μου δεν είναι και τόσο καλές.Λοιπόν πάνω σε μία φόρμα έχω τοποθετήση ενα πλαίσιο λίστας που παίρνει τιμές απο εναν πίνακα, ενα απο τα πεδία τις λίστας είναι ποσά ευρό,φιλτράροντας λοιπόν τις εγγραφές μου εμφανίζονται μόνο οι τιμές που με ενδιαφέρουν μέσα στην λίστα ,θα ήθελα λοιπόν σε ένα άλλο πεδίο στην φόρμα να γίνεται άθροισμα μόνο του πεδίου ποσού που μένει στην λίστα μετά το φιλτράρισμα.

[Meteora]

Καλησπέρα...
Βασίλη σε χαιρετώ. Κάνε τον κόπο και ανέβασε αυτή την φόρμα και τον πίνακα πάνω στον οποίο πατά η φόρμα, με 3-4 υποθετικές εγγραφές για να φανεί- απολύτως- το ζήτημά σου.
Τα λέμε λοιπόν
Φιλικά / Νίκος Δ.

[bill72]

Σε ευχαριστώ πολύ φίλε Meteora για το ενδιαφέρων σου.Ανεβάζω την βάση με αυτό που θέλω να κάνω, την βάση την βρήκα έτοιμη απο τον φίλο Taso είναι εκπληκτική και είναι αυτό ακριβώς που χρειάζομαι.

[Meteora]

Αγαπητέ Βασίλη...
Φτιάξε ένα κουμπί στη φόρμα (Koubi) και βάλε τον κώδικα. Νομίζω οτι κάτι τέτοιο θες.

 
Private Sub koubi_Click()
Dim listsum As Single, x As Integer
With Me!List1
.Requery
For x = 1 To .ListCount - 1
listsum = listsum + Nz(.Column(5, x), 0)
Next
End With
Me.Κείμενο19 = listsum
End Sub

Τα ξαναλέμε ...αν χρειαστεί.
Φιλικά / Νίκος Δ.

[Tasos]

Καλημέρα Βασίλη, χαίρομαι που ξανασυναντιόμαστε!
Ο πίνακας στο αρχείο που ανέβασες περιέχει το όνομα Name που ίσως προκαλέσει
προβλήματα σε περεταίρω ανάπτυξη του έργου σου (δεν έχω καταλάβει πως έκανα αυτό το λάθος).
Θα ήταν καλύτερα να το αλλάξεις (και στον πίνακα και στη φόρμα) σε πχ. sName ή κάτι άλλο.

Έστω λοιπόν ότι αντί για το όνομα Tel του πεδίου με τα ποσά χρησιμοποιείς το όνομα Charges.

Ο τύπος στο υπολογισμένο πεδίο που θέλεις να εμφανίζει τα σύνολα θα είναι:

=DSum("[Charges]";"[tblCustomers]";"[CuNr] & [Fname] & [sName] & [Address] & [Charges] Like " & "'*" & [Hidden] & "*'") 

Έτσι, κάθε φορά που θα πληκτρολογείς κάτι στην αναζήτηση θα σου εμφανίζει το συνολο των εγγραφών του List1.

Φιλικά

Τάσος

[bill72]

Σας ευχαριστώ πάρα πολύ και τους δύο, και οι δύο λύσεις κάνουν αυτό που θέλω απλά του Τάσου έχει πιο γρήγορα άμεσα αποτελέσματα ,το συγκεκριμένο forum είναι θησαυρός γνώσεων σε πολλά θέματα, είμαι κοντά σας καθημερινά.