Εξαρτώμενα συνθετα πλαίσια σε δευτερεουσα φόρμα

[johnchrist73]

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

στο αρχείο ποου ανεβάζω υπάρχει η φόρμα masterdb_0 που έχει υποφόρμα masterdb_1.
Σε αυτήν αύτήν μεταξύ αλλων έχω 2 σύνθετα πλαίσια [κατηγορία] και [τύπος] που η τιμή του ενός φιλτράρει τα αποτελέσματα του αλλου.
Δεν λειτουργει σωστά με πάνω απο 1 εγγραφές ( στην δευτερέουσα φόρμα)

Σας παρακαλώ για την βοήθεια σας

ευχαριστώ

[kapetang]

Καλησπέρα

Γιάννη, δες μια πρόταση στο συνημμένο.

1) Η προέλευση γραμμής (Row Source) ορίζεται με κώδικα.

2) Όταν ορίζεται σε κάποια εγγραφή η προέλευση γραμμής, ενδέχεται στο πεδίο [Τύπος], άλλων εγγραφών, να εξαφανίζονται οι τιμές, επειδή δεν περιλαμβάνονται στη λίστα τιμών της νέας προέλευσης.

Το πρόβλημα λύθηκε προσθέτοντας ένα TextBox (για την εμφάνιση των τιμών) πάνω στο ComboBox κατάλληλα προσαρμοσμένο.

Option Compare Database
Option Explicit

Private Sub ctgtype_AfterUpdate()
    Const sel As String = "Select DescrGR,  typeID, ctgtype from info1db Where ctgtype ='"
    Me.type.RowSource = sel & Me.ctgtype & "' order by DescrGR"
End Sub

Private Sub Form_Current()
    Const sel As String = "Select DescrGR,  typeID, ctgtype from info1db Where ctgtype ='"
    Me.type.RowSource = sel & Me.ctgtype & "' order by DescrGR"
End Sub

[johnchrist73]

Καλησπέρα Γιώργο,

δουλευει άψογα..

σε ευχαριστώ πολύ!!

[kapetang]

Να είσαι καλά Γιάννη και καλή συνέχεια.

[exarhos]

καλημέρα σας. κατέβασα τα αρχεία για να δώ πωσ το κάνατε ώστε να μαθαίνω και να παίρνω ιδέες αλλα δε μου εμφανίσει τισ φόρμες. μου εμφανίζει μονο τουσ πίνακεσ και ενα ερώτημα. πρεπει να κανω κατι για να μου εμφανισει τισ φόρμες?
ευχαριστώ