Bedingte ComboBox

[tobsn121]

Hallo Zusammen,

ich möchte eine bedingte ComboBox erstellen, diese soll bei Auswahl eines Wertes in einer vorgeschalteten ComboBox nur noch eine daran gekoppelte Auswahl anzeigen.

Leider funktioniert mein Code nicht.. es erscheint immer ein Box mit "Enter Parameter Value"

Danke für eure Hilfe!

Hier mein Code:

Code [Auswählen] Erweitern

Private Sub cboIndustry_AfterUpdate()

    Me.cboSub_Industry.RowSource = "SELECT SubInd" & _
                                    " FROM tblIndustry2" & _
                                    " WHERE Ind = " & Me.cboIndustry
                                   
                                   
End Sub

[MzKlMu]

Hallo,
welcher Datentyp ist Ind  ?

[tobsn121]

String

[MzKlMu]

Code [Auswählen] Erweitern

    Me.cboSub_Industry.RowSource = "SELECT SubInd" & _
                                    " FROM tblIndustry2" & _
                                    " WHERE Ind = "' & Me.cboIndustry &"'"
Bei String sind Kochkomma (') zu verwenden.

[tobsn121]

Besten Dank!