Φίλτρο σε ...σύνθετο πλαίσιο!

Καλησπέρα σας...

...Στη εφαρμογή εμφανίζω μια φόρμα Α που πατά πάνω σε ένα πίνακα 'Μαθητές'. Σε αυτή τη φόρμα έχω ενα σύνθετο πλαίσιο το οποίο στην ιδιότητα 'Προέλευση γραμής' περιέχει την παρακάτω εντολή:

SELECT Μαθητές.[ID5], Μαθητές.Επιθετο FROM Μαθητές WHERE Μαθητές.ID1=var1 ORDER BY Μαθητές.Επιθετο;

Σκοπός αυτού του πλαισίου ειναι να εμφανίζει τα επίθετα μαθητών που υπάρχουν στον πίνακα 'Μαθητές' και να ειναι συντονισμένο με τις εγγραφές που εμφανίζει η φόρμα.
Όταν ανοίγει η φόρμα Α ενεργοποιείται ένα φίλτρο :

Private Sub Form_Load()
var1 = DLookup("[ID1]", "Προγράμματα", "[Τιτλος]= '" & progr & "'")
Me.Filter = "[ID1]= " & var1
Me.FilterOn = True
End Sub

Το πρόβλημα:
Το σύνθετο πλαίσιο ΔΕΝ διαβάζει την μεταβλητή var1.


Με εκτίμηση σε όλα τα παιδιά και ιδιαίτερα στον Κωνσταντίνο πού ολοένα πλησιάζει στο Club των ...παντρεμένων! Τις ευχές μου φίλτατε

O Meteora

[kon73]

Αγαπητέ φίλε Meteora,

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

Τώρα

Οι Λύσεις που προτείνω :

1. Λοιπόν εαν το Select σου Meteora είναι όπως μου το παρουσιάζεις θα χρειαστείς πρώτα να κάνεις τα εξής βήματα.
α. Το var1 θα πρέπει να οριστεί τουλάχιστον Private δηλαδή με εμβέλεια της φόρμας.
Θεωρώ σωστά ότι έχει αρχικοποιηθεί και εισαχθεί η μεταβλήτη var1 στο Load.
β. "SELECT Μαθητές.[ID5], Μαθητές.Επιθετο FROM Μαθητές WHERE Μαθητές.ID1="& var1 & "ORDER BY Μαθητές.Επιθετο"
Προσθέτουμε & γιατί αλλιως δεν συγκρίνει το περιεχόμενο του var1 αλλά το var1 ως έχει κατά λέξη.Επίσης το var1 αν είναι κείμενο τότε βάζεις και ' δεξία και αριστέρα του var1 δηλαδή.
"SELECT Μαθητές.[ID5], Μαθητές.Επιθετο FROM Μαθητές WHERE Μαθητές.ID1=' " & var1 & " 'ORDER BY Μαθητές.Επιθετο"

2. Μια άλλη λύση είναι να αλλάξεις το SQL ερώτημά σου και να συμπεριλάβεις με JOIN το Μαθητές.ID του πίνακα Μαθητές με τον πίνακα Προγράμματα κάτι που είναι πιο γρήγορη και δομημένη λύση. Δηλαδή ένα Select των 2 πινάκων με σύνδεση μεταξύ των πινάκων το ID1.

Ωστόσο φίλε μου Meteora δώσε μου σε PM ή με upload στο εδώ Forum την βάση και εφαρμόζω τις λύσεις που σου προτείνω σε περίπτωση που δεν έγινα κατανοητός.

Φιλικά

kon73 / iliadisk

Κώστα καλησπέρα.

Φίλε μου προσπάθησα αρκετές φορές να στείλω το 'προβληματικό' κομάτι της εφαρμογής, ώστε όλα τα παιδιά -μέλη και επισκέπτες, να δουν το θέμα που αναπτύσσεται εδώ. Δεν τα κατάφερα.
Έκανα .ZIP > συνημμένο > Εύρεση > Προσθήκη αρχείου >>> και ο ΙΕ δεν ανταποκρινόταν!
Θέλω να στείλω αυτό το τμήμα γιατί έχει αρκετό ενδιαφέρον ( θα δοκιμάσω απο PC του Λυκείου).
Η πρώτη λύση δεν δούλεψε αν και την πάλεψα ! Τη δεύτερη λύση αγνοώ πλήρως. Γιαυτό ήθελα να στείλω το τμήμα της εφαρμογής.
Δες τώρα μια λύση ...κουφή.

ΒΗΜΑ 1
Στη φόρμα Α που περιέχει το πλαίσιο λίστας φτιάχνω Πλαίσιο κειμένου με όνομα 'Κείμενο56'

ΒΗΜΑ 2
Στο συμβάν Load της φόρμας γράφω : Κείμενο56 = var1
και δεύτερη εντολή Κείμενο56.visible = False (να γίνει αόρατο το πλαίσιο κειμένου)

ΒΗΜΑ 3
Στην ιδιότητα 'Προέλευση γραμμής' του σύνθετου πλαίσιο γράφω:
SELECT Μαθητές.[ID5], Μαθητές.Επιθετο FROM Μαθητές WHERE (((Μαθητές.ID1)=[Forms]![Μαθητές]![Κείμενο56])) ORDER BY Μαθητές.Επιθετο;

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

Κώστα καλησπέρα

Απο το σχολείο δεν γίνεται τίποτε! Ούτε απο το σπίτι μου μπορώ. Το συμπιεσμένο αρχείο έχει μέγεθος 50 ΜΒ. Σημαίνει κάτι αυτό;

Εύχομαι ένα καλό βράδυ
O meteora