Cascading combo box doesn't change with record set

[Pookaroo85]

I have a set of cascading combo boxes. The first (IDH) is based on a query. Then, I have the following code to change the second combo box.

Private Sub IDH_AfterUpdate()
Dim strSource As String

strSource = "SELECT Supplier " & _
                   "FROM tblMaterialSuppliers " & _
                   "WHERE IDH = '" & Me.IDH & "' ORDER BY Supplier"
Me.Supplier.RowSource = strSource
Me.Supplier = vbNullString
End Sub

This works as long as I stay on the same record, but when I change records the selection in the second combo box doesn't update.

[Rabbit]

That's because when you change records, you're not updating the table data, so the code isn't going to run. Call the code as well in the form's Current event, that fires whenever you change records.

[Pookaroo85]

I added the same code (copy/paste) to the form's on current event and now when I toggle records, the combo box is blank.

[Rabbit]

The combobox value is blank or the combobox list is blank? The combobox value should be blank, you set it to null in your code. The combobox list shouldn't be blank assuming the record you're going to has a value in IDH.

[Pookaroo85]

The combobox value is blank. It saves into the table, but then doesn't reappear when toggling records in the form. I removed "Me.Supplie r = vbNullString".

[Pookaroo85]

Figured it out. Thank you!