Setting combobox rowsource value from another combox

[kawi6rr]

First I know catagory is spelled wrong but that's how its spelled in the DB.

I have 2 combo boxes, the first is a cbo_catagory the second is cbo_topic. After update of cbo_catagory I want cbo_topic's value to be based off what was selected from cbo_catagory.

Private Sub cbo_Catagory_AfterUpdate()


Dim strSQL As String
strSQL = "SELECT DISTINCT CFS_Export.Topic, CFS_Export.Catagory FROM CFS_Export WHERE CFS_Export.Topic = '" & Me.cbo_Catagory & "'"
Me.cbo_Topic2.RowSource = strSQL
Me.cbo_Topic2.Requery
End Sub

As of now nothing happens, any help is apprecaited.

[June7]

That should work, however, there is no need for the Catagory field in the Topic combobox.

Could have the Topic2 combobox RowSource as: SELECT DISTINCT Topic FROM CFS_Export WHERE Topic = [cbo_Catagory];

Then the code only needs: Me.cbo_Topic2.Requery

Step debug, set a breakpoint, does the code run? Review link at bottom of my post for debugging guidelines.