Cascading Combo Boxes

[Steven P via AccessMonster.com]

Hello,
I have constructed combo boxes as previously instructed, have worked through
debugging the code but the combo box is not updating. Here is the code as
last ran.
Private Sub Combo8_AfterUpdate()
On Error Resume Next
Select Case Combo8.Value
Case "CSO"
Forms!INPUTSKYONGRINDING!cboMachine.RowSource = "tblCSO MACHINE"
Case "KYON"
Forms!INPUTSKYONGRINDING!cboMachine.RowSource = "tblKyon Machine List"
Case "MILLING"
Forms!INPUTSKYONGRINDING!cboMachine.RowSource = "tblMILLING MACHINE"
Case "KENDEX"
Forms!INPUYSKYONGRINDING!cboMachine.RowSource = "tblKENDEX MACHINE"
Case "MOLDED"
Forms!INPUTSKYONGRINDING!cboMachine.RowSource = "tblMOLDED MACHINE"
Case "ADV. MATLS"
Forms!INPUTSKYONGRINDING!cboMachine.RowSource = "tblADV MATLS Machine"
End Select

End Sub

Before arriving at this format I tried what was suggested with the following.
Private Sub Combo8_AfterUpdate()
On Error Resume Next
Select Case Combo8.Value
Case "CSO"
cboMachine.RowSource = "tblCSO MACHINE"
Case "KYON"
cboMachine.RowSource = "tblKyon Machine List"
etc.....
I received an error for the cboMachine portion, assuming it did not recognize
this since it was located in another form, I added the previous form
statement. There is no error message now, but it does not work.

Thanks,
Steven

 

[Guest]

Try placing your form name, your field name, and all the other names in
square brackets. This sometimes solves the problem (though not always).