Combo Box / Exiting

[RandyK]

This combo box searches on customer name (drop down list) and automatically goes to that record when I press the "Enter", "Tab" or "Esc" keys or if I "mouse click" on another field. However, I only want it to go to that record if I press the "Enter" key.

Sub Combo90_AfterUpdate()
' Find the record that matches the control.
Me.RecordsetClone.FindFirst "[ID] = " & Me![Combo90]
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.Combo90 = ""
Me.Req.SetFocus
End Sub

Thank you,
RandyK

 

[IfButOnly]

Why don't you make it so that it only performs the action when you click on the selected item - I think the click action is the same as enter.

Sub Combo90_Click()
' Find the record that matches the control.
Me.RecordsetClone.FindFirst "[ID] = " & Me![Combo90]
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.Combo90 = ""
Me.Req.SetFocus
End Sub

 

[RandyK]

Thank you,

RandyK