Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Εφαρμογή φίλτρου σε φόρμα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/527-efarmogi-filtroy-se-forma.html)

stavros2244 05-04-10 20:36

Εφαρμογή φίλτρου σε φόρμα
 
1 Συνημμένο(α)
Χαίρετε!Χρόνια πολλά και Χριστός Ανέστη!

Στην φόρμα frmState την οποία έχω ορίσει ως συνεχή, θέλω να εμφανίζονται μόνο αυτοί για τους οποίους το πεδίο State έχει την τιμή HERE - αλλά το πεδίο αυτό δεν το έχω συμπεριλάβει στη φόρμα.

Vangelis 05-04-10 22:56

Καλησπέρα!

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

Γίνε πιο σαφής. Τι θέλεις να κάνεις;

Φιλικά

Βαγγέλης

stavros2244 06-04-10 11:32

Θέλω χωρίς να έχω το πεδίο State - ή να το έχω και να μην είναι ορατό(κάτι τέτοιο τέλωσπάντων) να εμφανίζονται μόνο αυτοί για τους οποίους η τιμή του πεδίου State να είναι Here. Σκεφτόμουν μήπως υπήρχε κάποιος τρόπος να γίνει το φιλτράρισμα μέσα στην φόρμα αλλά από τον πίνακα

Tasos 06-04-10 13:48

Σταύρο, αφού εμφανίσεις την κεφαλίδα/υποσέλιδο της φόρμας, και αφού εισάγεις το πεδίο State (μπορεις να το αποκρύψεις),
πρόσθεσε ένα σύνθετο πλαίσιο στην κεφαλίδα της φόρμας με το όνομα cboState που θα
περιέχει τις τιμές HERE και AWAY ή αν έχεις περισσότερες επιλογές, πάρε τις μοναδικές
τιμές από τον πίνακα σου βάζοντας στην προέλευση γραμμής:

SELECT DISTINCT tblPerson.State FROM tblPerson;

Κατόπιν, στο συμβάν "Μετά την ενημέρωση" επίλεξε [Διαδικασία συμβάντος],
κάνε στο κουμπί τέρμα δεξιά που εμφανίζεται στη γραμμή αυτή και στο παράθυρο που θα εμφανιστεί, ανάμεσα στις 2 γραμμές:

Private Sub cboState_AfterUpdate()

End Sub


πέρασε τον παρακάτω κώδικα:

Κώδικας:

If Nz(Me.cboState, vbNullString) = vbNullString Then
        Me.FilterOn = False
    Else
        Me.Filter = "State = '" & Me.cboState & "'"
        Me.FilterOn = True
    End If

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

Φιλικά

Τάσος

stavros2244 09-04-10 07:47

Δουλεύει όπως θέλω! Ευχαριστώ πολύ !


Η ώρα είναι 08:04.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2