Private Sub [COLOR=Blue]yourComboBoxName[/COLOR]_AfterUpdate()
If DCount("*","[Contacts Extended]","[ID]=" & Me.[COLOR=Blue]yourComboBoxName[/COLOR]) <> 0 Then
' Find the record that matches the control.
Dim rs As DAO.RecordSet
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & [COLOR=Blue]Me.yourComboBoxName[/COLOR]
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else
Call MsgBox("No such record exists.", vbCritical, "No match found")
End If
End Sub