[kapetang]

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

Στη βάση δεδομένων που επισυνάπτω παρουσιάζω μια απλή περίπτωση εφαρμογής φίλτρου που νομίζω ότι καλύπτει τις ανάγκες του Χρήστου.
Η βάση αποτελείται από ένα πίνακα πελατών «tblCustomers» που περιέχει και ένα πεδίο «Active» τύπου Ναι/Όχι, για να διακρίνει τους πελάτες σε ενεργούς και μη και από μία φόρμα «frmCustomers».
Επειδή θέλουμε η φόρμα να φιλτράρει τους πελάτες και να δείχνει μόνο τους ενεργούς:

1. Στην ιδιότητα της φόρμας φίλτρο έβαλα τον τύπο: [Active]=-1 (προβολή σχεδίασης > ιδιότητες φόρμας > καρτέλα δεδομένα > ιδιότητα φίλτρο).
2. Στην κεφαλίδα της φόρμας πρόσθεσα ένα πλαίσιο ελέγχου με όνομα «chkFilter» που καθορίζει αν θα εμφανίζονται όλοι οι πελάτες ή μόνο οι ενεργοί.
3. Στο συμβάν με το κλικ του πλαισίου ελέγχου έβαλα τον κώδικα:

Private Sub chkFilter_Click()
Me.FilterOn = Me.chkFilter
End Sub
Προσθήκη: Αν χρησιμοποιήσουμε για την εφαρμογή ή την κατάργηση του φίλτρου το μενού (Εγγραφές > Εφαρμογή/Κατάργηση φίλτρου) ή το κουμπί της γραμμής εργαλείων Εφαρμογή/Κατάργηση φίλτρου (αυτό με το χωνί), οι ενέργειες 2 και 3 δε χρειάζονται.

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