I haven't read the rest of this thread but the code has at least one error
On Error Resume Next should be on its own line
Also use Me. instead of Me!
Code:
Private Sub cboVINFinder_AfterUpdate()
On Error Resume Next
Me.txtClaimID.SetFocus
DoCmd.FindRecord Me.cboVINFinder
Me.cboVINFinder.SetFocus
Me.cboVINFinder= Null
End Sub
Also, I'm not sure what the DoCmd.FindRecord line is meant to be doing without reading the whole thing ..
You've updated the combobox and now you need to find that record????
Surely it will be on that record after the update....