Search for subform record based on text box

@Ken Sheridan

I tried this in my previous code when I was using the Findfirst instead of filtering. I get the error stating that Access can't find the field '1' referred to in your expression and highlighting line Set rs = Me.[Header Data Form.Form.RecordsetClone

Private Sub Search_SN_Button_Click()
If ([Header SN Field] & vbNullString) = vbNullString Then Exit Sub
Dim strCriteria As String
Dim rs As DAO.Recordset

strCriteria = Me![Header SN]  
  
Debug.Print "Criteria:", strCriteria  
  
Set rs = Me.[Header Data Form].Form.RecordsetClone  
Dim i As Long  

For i = 0 To rs.Fields.Count - 1  
    Debug.Print rs.Fields(i).Name,  
Next  
rs.MoveFirst  
Do Until rs.EOF  
    Debug.Print  
    For i = 0 To rs.Fields.Count - 1  
        Debug.Print rs.Fields(i).Value,  
    Next  
    rs.MoveNext  
Loop  
  
rs.FindFirst "[Header SN] = '" & strCriteria & "'"  

If rs.NoMatch Then
MsgBox "Sorry, no such record '" & [Header SN Field] & "' was found.", _
vbOKOnly + vbInformation
Else
Me.Bookmark = rs.Bookmark
End If
rs.Close
txtGoTo = Null

End Sub

Is Header Data Form the name of the subform control, or of the control's source object? Note that both might or might not have the same name. It should be the name of the subform control in the parent form's Controls collection.

@Ken Sheridan I have attached a few screenshots of my setup. I believe the name of the subform control is Header Data Form, as well as the name of the source object.

Would the bookmark example be included in the first examples that you sent? Or do the first 2 examples need to be changed to be used for a button/text box on the subform? I am a bit confused where each example should be used

You'll find the Name property of the subform control on the Other tab of its properties sheet.

Both examples in my demo use a control on the parent form. The difference is that the second filters the subform as well as the parent form, while the first navigates to the matching record in the subform.

If you wanted to change it to use an unbound control in the subform then the code would in essence be the same, but each reference to the form in the combo box's After Update event procedure would be changed to a reference to Me.Parent, and in the code in the subform's Current event procedure would be changed to reference to Me. The Me keyword actually returns a reference to the current instance of the class in which the code is executing, but think of it as a shorthand way of refereeing to the current form or subform.

One other point I'd mention is that trying to use the same control as a bound control and a navigational control, as you mentioned earlier, is not a good idea. For a navigational control use an unbound control. You can synchronize this with the current record in the form's Current event procedure. The first option in my FindRecord demo does this. So you could omit the corresponding bound control(s), but you'd then have to include a mechanism to insert a value when entering a new record in the form.

Thank you for all the help! A few follow up questions...

The name of the subform control is Header Data Form, why do I get the error in my previous question (when bound text and button are on the subform) ?

I have changed the code for the button on my subform to match your findrecord example but use Me.Parent (see below), but I still get the same issue when I had the text box and button on the main form - it updates the parent form to the record that matches that in the text box, but the subform remains blank. Is the current event procedure what would update the sub form? Does the current event procedure and the after update procedure need to be separate? Can the bookmark action be in the after update (in my case, button click) procedure (as seen in the text before the End With statement)?

Private Sub Search_SN_Button_Click()  
    Const MESSAGETEXT = "No matching records found."  
     Dim ctrl As Control  
     Dim strFilter As String  
          
     Set ctrl = Me.[Header SN Placeholder]  
        'Header SN Placeholder is not bound to the table, formula equals text entered in Header SN Field textbox on subform  
     strFilter = "[Furnace Run ID] IN(SELECT [Furnace Run ID] " & _  
         "FROM [Header Data] WHERE [Header SN] = """ & ctrl & """)"  
          
     If Nz(ctrl, 0) = 0 Then  
         ' turn off filter  
         Me.Parent.FilterOn = False  
         Me.Parent.[Header Data Form].Form.FilterOn = False  
     Else  
         If Not IsNull(DLookup("[Header SN]", "[Header Data]", "[Header SN] = '" & ctrl & "'")) Then  
             ' filter form to name selected in text box  
             Me.Parent.Filter = strFilter  
             Me.Parent.FilterOn = True  
                  
             ' filter subform to selected Header SN  
             With Me.Parent.[Header Data Form].[Form]  
               .Filter = "[Header SN] = '" & ctrl & "'"  
               .FilterOn = True  
               '.RecordsetClone.FindFirst "[Header SN] = " & Me.[HeaderSN]  
               'If Not .RecordsetClone.NoMatch Then  
               '.Bookmark = .RecordsetClone.Bookmark  
              ' End If  
               End With  
         Else  
             ' inform user if no matching records found and show all records  
             MsgBox MESSAGETEXT, vbInformation, "Warning"  
             Me.FilterOn = False  
             Me.Requery  
             Me.[Header Data Form].Form.FilterOn = False  
         End If  
     End If  
  
End Sub  

I have also noticed that clicking the search button adds a new record to the subform table with just the parent form data and the entered SN, which I do not want. The control on the subform is now a palceholder, which is autofilled when the bound text box is filled. Why is this happening?

At the end, since I have a single form, I do not need it to show all records. Can I just change the lines between the last Else and End If to be:
'MsgBox "Sorry, no such record '" & [Header SN Field] & "' was found.", _
vbOKOnly + vbInformation