Go to a record on a continuous form based on value entered in a text box

[newbieX]

I have a bound subform (frmTheData) that is displayed as a continuous form. I would like to add a text box (ID) in its footer that when a unique ID number is entered into it and then the “Find” button (cmdFind) is pressed, it goes to the record (field name = ID) matching that ID. I would assume the arrow on the navigation bar would point to it.



The subform’s record source is a query (qryTheData) that connects all the related tables and displays relevant fields in the subform. I want all these records to remain displayed. I do not want to display just that record. I only want to jump to it.

Ideas on how to do this using VBA?

Using Access 2007.

[June7]

I use RecordsetClone and bookmarks for this. Example:

    With Me.RecordsetClone
        .FindFirst "LabNum='" & Me.cbxLabNum & "'"
        Me.Bookmark = .Bookmark
    End With

Does main form have data? Is the subform linked to data on main form? Are there other subforms? If main form has no data and this is only subform, why use subform and not just put all on one form? If it is linked, you are aware that the subform cannot show records not associated with the main form record?

[newbieX]

It turned out subform was locked down and I couldn't enter anything into the textbox, so this is the work around that I found.

Private Sub cmdFind_Click()
    Dim number As Integer
    Dim rs As Object
    
    number = InputBox("Enter ID number :")
    Set rs = Me.Recordset.Clone
    
    rs.FindFirst "[ID]= " & number
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    If number <> Me!ID Then
          MsgBox "No number matches", vbOKCancel
    Else
          MsgBox "Yea, you matched a number", vbInformation
    End If
End Sub

Thank you for your help.