Doesn't look like you looked at the code in the Impact example dB.
Each of the combo boxes GotFocus events should have only 1 line - the name of the combo box and the Dropdown command.
Examples:
Code:
Private Sub cboitem_GotFocus()
Me.cboitem.Dropdown
End Sub
Private Sub cboequipment_GotFocus()
Me.cboequipment.Dropdown
End Sub
Private Sub cbosystem_GotFocus()
Me.cbosystem.Dropdown
End Sub
Starting at the bottom combo box for the cascaded combo boxes:
The Item combo box code looks good:
Code:
Private Sub cboitem_AfterUpdate()
Me.txtqty = Null "good
Me.txtqty.SetFocus '<<-- ADD this line - moves to the next control - txtqty
End Sub
The next combo box is Equipment combo box - the code has problems:
Code:
Private Sub cboequipment_AfterUpdate()
Me.txtqty = Null '<<-- MOVED from the cboequipment_GotFocus event
Me.cboitem = Null 'good
Me.cboequipment = Null '<< WHAT??? Really??? You just cleared the value you just selected in the Equipment combo box!!! DELETE this line
Me.cboitem.Requery
Me.cboitem.SetFocus '<<-- ADD this line - moves to the next control - cboitem
End Sub
Next combo box is System - - the code has problems:
Code:
Private Sub cbosystem_AfterUpdate()
Me.txtqty = Null '<<-- MOVED from the cbosystem_GotFocus event
Me.cboitem = Null 'good
Me.cboequipment = Null 'good
' Me.cbosystem = Null '<< WHAT??? Really??? You just cleared the value you just selected in the System combo box!!! DELETE this line
Me.cboitem.Requery
'What about the requery for cboequipment???
Me.cboequipment.Requery '<<-- ADD this line
Me.cboequipment.SetFocus '<<-- ADD this line- moves to the next control - cboequipment
End Sub
See how this works?? Continue with the other combo boxes
cboRack
cboStore
cboTerminal