I've never used "SearchForRecord", nor have I ever used "screen.activecontrol" (except in Excel).
If the combo box is named "cboSearch", using "Docmd.SearchForRecord", I would have
Code:
DoCmd.SearchForRecord ,,, "ClientID = " & Me.cboSearch
or
Code:
DoCmd.SearchForRecord acDataForm, Me.Name, , "ClientID = " & Me.cboSearch
What I do is filter the form:
Code:
Private Sub cboSearch_Click()
Me.Filter = "ID = " & Me.cboSearch
Me.FilterOn = True
End Sub
The button code looks OK. The 2 quotes are optional. I use
Code:
Private Sub newrec_Click()
DoCmd.GoToRecord , , acNewRec
End Sub
I've re-read your first post several times and I'm not sure I understand the problem. Would have to see your dB.......