Cascading combo box and list box

[caecilie]

Hi

I am having a problem with cascading combo box and list box. The combo box should provide a value in a list box and then the list box value should control other values.

I am using the following code but when I change the value in the combo box it empties the list box instead of given choises in the list box.

Hope somebody can help.


Private Sub Combo19_AfterUpdate()
On Error Resume Next
List17.RowSource = "Select QProjekt_plan.Short_describtion_patent " & _
"FROM QProjekt " & _
"WHERE QProjekt.Project_Name = '" & Combo19.Value & "' " & _
"ORDER BY QProjekt.Short_describtion_patent;"
End Sub

 

[pbaldy]

Perhaps the bound column of the combo is an ID rather than a name?