An example of AfterUpdate event for record selection combo box (cbbSelectDevice):
Code:
Private Sub cbbSelectDevice_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[DeviceID] = '" & Me![cbbSelectDevice] & "'" --/ The syntax for this row in case DeviceID is text (as I have it)
-- rs.FindFirst "[DeviceID] = " & Me![cbbSelectDevice] --/ The syntax for this row in case DeviceID is numeric (the row is commented out - I added it to demonstrate the difference)
Me.Bookmark = rs.Bookmark
End Sub