Before this line of code
DoCmd.SearchForRecord , "", acFirst, "[ContactID] = " & Str(Nz(Screen.ActiveControl, 0))
Add code to evaluate the data entered and compare against any data in text boxes on the form.
To do this you will need to use code something like this:
If Me.thiscomboname =...