VB code to Search for a Specific Record on Subform

[NanR]

Hello,
I've been searching for steps/code to be able to search for an account number on a subform (frmOverdraftAccts). The main form is frmCustomer-MainForm.
This is what I'm using so far:
Private Sub cmdSearch_Click()
If IsNull(txtSearch) = False Then
Me.Recordset.FindFirst "[AcctNum]=" & txtSearch
Me!txtSearch = Null
If Me.Recordset.NoMatch Then
MsgBox "No record found", vbOKOnly + vbInformation, "Sorry"


Me!txtSearch = Null
End If
End If
End Sub
The code is in an Event Procedure OnClick of the command button cmdSearch. It uses a txtSearch text box for the user to enter the account number that they are looking for.
The only thing that is returned is the message. It never finds the account number.
I have put the text box and command button in the form header of the subform.
I'm very new at using code. And, I'm not sure if I've explained what is happening very well.
Any help is greatly appreciated.
NanR

[June7]

Try:

If IsNull(Me.txtSearch) = False Then
    Me.RecordsetClone.FindFirst "[AcctNum]=" & Me.txtSearch
    If Me.RecordsetClone.NoMatch Then
        MsgBox "No record found", vbOKOnly + vbInformation, "Sorry"
    Else
        Me.Bookmark = Me.RecordsetClone.Bookmark
    End If
    Me.txtSearch = Null
 End If

Is AcctNum a text type field? If so:
Me.Recordset.FindFirst "[AcctNum]='" & Me.txtSearch & "'"

The subform should be linked to the main form and therefore cannot display any record that is not associated with the main form record.

[NanR]

Hi June7,
I used the code you provided above and changed the Recordset for text "".
However, I'm getting a Run Time error on: Me.Bookmark = Me.RecordsetClone.Bookmark

The subform is linked to the main form on CustID.
I'm at a loss as to what is the problem.
Thank you for your help.
NanR

[June7]

What is the exact error message?

The code technique works for me. The code is behind the subform?

[NanR]

The error message box says: Run-time error '3021': No current record.
Yes, the code is on a command button on the header of the subform.

[June7]

I don't know why the code errors. It looks fine to me. Step debug. Refer to link at bottom of my post for debugging guidelines.

Otherwise, if you want to provide db for analysis, follow instructions at bottom of my post.