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/5266-filtro-ekthesis-apo-forma.html)

th3_b3st 04-06-19 12:15

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

Αν στην μακροεντολή γράψω για παράδειγμα στην συνθήκη where =
([Αναγνωριστικό] in (1;5;6))
Δουλεύει κανονικά

αν όμως στο boxID πληκτρολογήσω 1;5;6
το ορίσω προσωρινή μεταβλητή ως VarID = ([Φόρμες]![frmΤαδε]![boxID])
( δοκίμασα και ως VarID = val([Φόρμες]![frmΤαδε]![boxID]) )
και ανοίξω την έκθεση με φίλτρο where =
([Αναγνωριστικό] in ([Προσωρινές μεταβλητές]![VarID]))
τότε δεν μου εμφανίζει καμία εγγραφή στην έκθεση. :032::032:

Για δώστε καμία ιδέα.
Είτε σε macro είτε σε vba

Ευχαριστώ Πέτρος

th3_b3st 04-06-19 18:24

Παιδιά ΟΚ!!
το έλυσα το πρόβλημα με vba. Ο κώδικας που χρησιμοποίησα είναι ο παρακάτω:

Private Sub btnTade_Click()
Dim sFlt As Variant

If IsNull(Me.boxID) Then
sFlt = ""
Else
sFlt = "([Αναγνωριστικό] IN (" & Me.boxID & "))"
End If

DoCmd.OpenReport "rptΕκθεση", acViewPreview, , sFlt, acDialog

End Sub

Ευχαριστώ πολύ!! Καλή συνέχεια σε όλους

exarhos 05-04-22 22:38

Παράθεση:

Αρχική Δημοσίευση από th3_b3st (Μήνυμα 29652)
Παιδιά ΟΚ!!
το έλυσα το πρόβλημα με vba. Ο κώδικας που χρησιμοποίησα είναι ο παρακάτω:

Private Sub btnTade_Click()
Dim sFlt As Variant

If IsNull(Me.boxID) Then
sFlt = ""
Else
sFlt = "([Αναγνωριστικό] IN (" & Me.boxID & "))"
End If

DoCmd.OpenReport "rptΕκθεση", acViewPreview, , sFlt, acDialog

End Sub

Ευχαριστώ πολύ!! Καλή συνέχεια σε όλους

φίλε μου καλησπερα. διαβασα το θέμα σου για να [παρώ ιδεες και γνωση φυσικα για μια δικη μου βαση που προσπαθω να φτιαξω. το αναγνωριστικο που γραφεισ στον κωφικα τι ειναι>?
μπορεισ σε παρακαλω να ανεβασεισ ενα δειγμα τησ βασησ με τη φορμα - εκθεση αυτη για να τη μεέτήσω?
ευχαριστώ πολύ


Η ώρα είναι 02:38.

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


Search Engine Optimization by vBSEO 3.3.2