Updating a combo box

[BMag]

I have a combo box that selects the record to be viewed on a form. That works fine. However if I use record selectors or use the wheel on the mouse to go to other records, the combo box does not change to reflect the current record. How do I make the combo box update automatically if the record changes to a different record.

 

[PierreR]

Private Sub Form_Current()
    Me.MyComboName = Me.MyRecordID
End Sub