Text box on a form to search record

[Zeeshan7]

We can have an unbound text box on the form in which the person can type in the text box they want to go to retrieve information without having to use the find record button or menu option. For this we can use the After Update event to move to the desired record (please see below code). How can we hide or restrict other records to display in a columnar form as by default it shows entire record one by one? Please help or provide any alternate solution. Thank you.

This example assumes an unbound text box named "txtFindID" where the user enters the number to find:

Private Sub txtFindID_AfterUpdate()
Dim strWhere as String
If Not IsNull(Me.txtFindID) Then
If Me.Dirty Then 'Save first.
Me.Dirty = False
End If
strWhere = "[ID] = " & Me.txtFindID
With Me.RecordsetClone
.FindFirst strWhere
If .NoMatch Then
Msgbox "Not found."
Else
Me.Bookmark = .Bookmark
End If
End With
End If
End Sub

Note: If "ID" is a field of type Text, we need extra quotes:
strWhere = "[ID] = """ & Me.txtFindID & """"

[Zeeshan7]

Please help.

[MMcCarthy]

We can have an unbound text box on the form in which the person can type in the text box they want to go to retrieve information without having to use the find record button or menu option. For this we can use the After Update event to move to the desired record (please see below code). How can we hide or restrict other records to display in a columnar form as by default it shows entire record one by one? Please help or provide any alternate solution. Thank you.

This example assumes an unbound text box named "txtFindID" where the user enters the number to find:

Private Sub txtFindID_AfterUpdate()
Dim strWhere as String
If Not IsNull(Me.txtFindID) Then
If Me.Dirty Then 'Save first.
Me.Dirty = False
End If
strWhere = "[ID] = " & Me.txtFindID
With Me.RecordsetClone
.FindFirst strWhere
If .NoMatch Then
Msgbox "Not found."
Else
Me.Bookmark = .Bookmark
End If
End With
End If
End Sub

Note: If "ID" is a field of type Text, we need extra quotes:
strWhere = "[ID] = """ & Me.txtFindID & """"

Try something like

Me.Filter = strWhere
Me.FilterOn = True
Me.Requery
 

Mary

[Zeeshan7]

Try something like

Me.Filter = strWhere
Me.FilterOn = True
Me.Requery
 

Mary

Thanks for your response. Where to put this code? Secondly, what I should do with the form as it's based on a table and show all records. The code I had narrated is basically for navigation, within the form based on table. I want a text box to search and show specific record (only) in a table or query. Thank you.