[ Φόρμες ] Εμφάνιση Συγκεκριμένων Εγγραφών στην Φόρμα.

[Dangel82]

Χρήστο καλησπέρα,
Υποθέτω πως εισάγεις στην φόρμα σου κάποια είδη απο κάποιον άλλο πίνακα.

Μπορείς να κάνεις το παρακάτω:

Εάν ο εγγραφές σου είναι μέσα σε κάποιο ComboBox:
1 - Όρισε ένα πεδίο Ναι/Οχι στον πίνακα των ειδών σου (θα το ονομάσω "Active")
2 - Προσδιόρισε σε ποιά κατάσταση θα έχεις το πεδίο "Active" για κάθε εγγραφή του πίνακα "Είδη"
3 - Μέσα στην φόρμα σου στην "Προέλευση εγγραφών" του Combobox όρισε ως φίλτρο (χωρίς να το εμφανίζεις στην λίστα σου) το πεδίο "Active" στην κατάσταση που επιθυμείς (True ή False)
4 - Τελείωσες, το ComboBox θα σου εμφανίζει μόνο τις τιμές που έχεις ορίσει στο φίλτρο του ComboBox
Με τον τρόπο αυτό μεν, ενημερώνεις τις εγγραφές σου με τα πεδία που υπάρχουν διαθέσιμα (βάση φίλτρου) απο το ComboBox και δεν εξαφανίζεις τις εγγραφές που έκανες στην φόρμα σου πριν απο το μαρκάρισμα του είδους ως "Ανενεργο" (Active = True).

Εάν είναι μια απλή φόρμα:
1 - Όρισε ένα πεδίο Ναι/Οχι σε έναν πίνακα που υπάρχει στο DataSource της φόρμας σου (θα το ονομάσω "Active")
2 - Πρόσθεσε αυτό το πεδίο στην φόρμα σου
3 - Βάλε 1 Unbound CheckBoxe στην φόρμα σου (ονόμασέτο ένα "Open_Closed)
4 - Στο Ερώτημα του DataSource στο πεδίο "Active" βάλε το κριτήριο:
Iif([φορμα]!Active=True;True;False)
Στην ουσία αλλάζεις τις εγγραφές του ερωτήματός σου βάση του τι είναι επιλεγμένο στο Unbound CheckBox που έχεις στην φόρμα σου.
4 - Στο Event AfterUpdate του unbound CheckBox βάλε το εξής :
me.Form.Requery
Μόλις θα κάνεις το παραπάνω τσεκάρωντας ή ξετσεκάρωντας το CheckBox επιλέγεις ποιές εγγραφές θέλεις να δεις (τις ενεργές ή τις ανενεργές) και ξαναυπολογίζει την φόρμα σου βάση της επιλογής σου.

P.S. Sorry αν κάπου σε μπερδεύω αλλά είμαι για ύυυυυυυυπνουςςςς.....!!

Φιλικά,

Άγγελος

[Free_Ghost]

Αρχική Δημοσίευση από Dangel82

Χρήστο καλησπέρα,

Εάν είναι μια απλή φόρμα:
1 - Όρισε ένα πεδίο Ναι/Οχι σε έναν πίνακα που υπάρχει στο DataSource της φόρμας σου (θα το ονομάσω "Active")
2 - Πρόσθεσε αυτό το πεδίο στην φόρμα σου
3 - Βάλε 1 Unbound CheckBoxe στην φόρμα σου (ονόμασέτο ένα "Open_Closed)
4 - Στο Ερώτημα του DataSource στο πεδίο "Active" βάλε το κριτήριο:
Iif([φορμα]!Active=True;True;False)
Στην ουσία αλλάζεις τις εγγραφές του ερωτήματός σου βάση του τι είναι επιλεγμένο στο Unbound CheckBox που έχεις στην φόρμα σου.
4 - Στο Event AfterUpdate του unbound CheckBox βάλε το εξής :
me.Form.Requery
Μόλις θα κάνεις το παραπάνω τσεκάρωντας ή ξετσεκάρωντας το CheckBox επιλέγεις ποιές εγγραφές θέλεις να δεις (τις ενεργές ή τις ανενεργές) και ξαναυπολογίζει την φόρμα σου βάση της επιλογής σου.

P.S. Sorry αν κάπου σε μπερδεύω αλλά είμαι για ύυυυυυυυπνουςςςς.....!!

Φιλικά,

Άγγελος

Νίκο εχθές το βράδι έκανα κάποιες δοκιμές αλλά δεν κατάφερα τίποτα, μου έβγαζε σφάλμα..

Αγγελε το βράδι θα δοκιμάσω το παραπάνω ( τώρα είμαι δουλειά δεν μπορώ) αν και δεν το πολυκατάλαβα με ζορίζει λίγο Το 4 και το 4 αλλά θα το προσπαθήσω...

[kapetang]

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

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

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

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

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