[Meteora]

Καλησπέρα
Με την παρούσα ανάρτηση θέλω να σας παρουσιάσω μια λύση που αφορά την διαμόρφωση της λίστας ενός σύνθετου πλαισίου, ανάλογα με μια άλλη επιλογή που έχει προηγηθεί. Είναι κάτι που είχα 'υποσχεθεί' κατά τη ροή της παρούσας συζήτησης.
Η λύση στηρίζεται σε ένα πίνακα κατάλληλα σχεδιασμένο, τον [ΟΝΟΜΑ_ΠΑΡΑΜΕΤΡΩΝ] και σε μια γραμμή κώδικα VBA.

Private Sub COMBO12_GotFocus()
Me.COMBO12.RowSource = "SELECT distinct [ΟΝΟΜΑ_ΠΑΡΑΜΕΤΡΩΝ].[onoma] FROM [ΟΝΟΜΑ_ΠΑΡΑΜΕΤΡΩΝ]" & _
                                       " where [kodexetasis]='" & Me.ΚΩΔ_ΕΞΕΤΑΣΗΣ & "'" & _
                                       " ORDER BY [ΟΝΟΜΑ_ΠΑΡΑΜΕΤΡΩΝ].[onoma] "
End Sub

Στη φόρμα μας, ήδη υπάρχει ο [ΚΩΔ_ΕΞΕΤΑΣΗΣ] και μόλις ο κέρσορας δώσει focus στο σύνθετο πλαίσιο [combo12], του λέει να πάει στον πίνακα [ΟΝΟΜΑ_ΠΑΡΑΜΕΤΡΩΝ] και να εμφανίσει εκείνα τα πεδία [onoma] που έχουν στην εγγραφή τους τιμή στο πεδίο [kodexetasis], ίσο με τον ήδη υπάρχοντα [ΚΩΔ_ΕΞΕΤΑΣΗΣ].

Με εκτίμηση

Νίκος Δ.

Υστερολόγιο: Σε μια εφαρμογή μου, με την παραπάνω τεχνική μπόρεσα να κατανείμω πάνω από 2000 τίτλους μαθημάτων ανάλογα με τον τύπο σχολείου (ΓΕΛ, ΕΠΑΛ, ΓΥΜΝΑΣΙΟ...), την τάξη (Α, Β, ...) και την ομάδα (Επιλογής, γενικής παιδείας, κατεύθυνσης, τομέα) στην οποία μπορεί να αντιστοιχεί ένας τίτλος μαθήματος.