[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