How do I make a search text box? like navigation buttons Search (1 Viewer)

[Mario R. Perez]

Any ideas on how to make a search text box that will illuminate any text in a set of records in a form?

Attached a sample pic.

thanks for advance.

 

[xavier.batlle]

Any ideas on how to make a search text box that will illuminate any text in a set of records in a form?

Attached a sample pic.

thanks for advance.

Look at:

 

[arnelgp]

it will not be highlighted unless Make column (field) is a Long text (memo) and displayed as Rich Text on your form.
here is a demo, open form Makes.

 

[Edgar_]

It can be very simple with the right combination. This combination is very specific, but it gets the job done. It basically requires adding an unbound textbox with rich formatting. I added the unbound textbox to avoid changing my Short Text fields to Long Text, which is a requirement if you want to have a Rich Text textbox (or so I believe after my tests).

If you just want to highlight:

Private Sub txtSearch_Change()
    ' get term
    Dim x As String
    x = Me.txtSearch.Text
  
    ' show results
    If Len(x) > 0 Then
        Me.txtResults.ControlSource = "=Replace([TheField], '" & x & "', '<font style=""BACKGROUND-COLOR:#ffff00"">" & x & "</font>')"
    Else
        Me.txtResults.ControlSource = ""
    End If
  
    ' stay in textbox
    Me.txtSearch.SetFocus
    Me.txtSearch.SelStart = Len(Me.txtSearch.Text) + 1
End Sub

If you want to filter and highlight:

Private Sub txtSearch_Change()
    ' get term
    Dim x As String
    x = Me.txtSearch.Text

    ' filter
    Me.Filter = "TheField Like '*" & x & "*'"
    Me.FilterOn = True
  
    ' show results
    If Len(x) > 0 Then
        Me.txtResults.ControlSource = "=Replace([TheField], '" & x & "', '<font style=""BACKGROUND-COLOR:#ffff00"">" & x & "</font>')"
    Else
        Me.txtResults.ControlSource = ""
        Me.FilterOn = False
    End If
  
    ' stay in textbox
    Me.txtSearch.SetFocus
    Me.txtSearch.SelStart = Len(Me.txtSearch.Text) + 1
End Sub

Attached is a sample. This is the simplest setup I could come up with.

 

[arnelgp]

a Rich Text textbox (or so I believe after my tests).

only problem is that if you have Capital letter on the original field and you typed on the search box lower case, the text on the unbound textbox got replaced with lowercase. same is true if you type Uppercase and the text on the field is lowercase, again, the unbound textbox got replaced with Uppercase?

 

[Edgar_]

Yes. I guess it's better if you find the position of the search term and inject the html tags before and after, but I hope this is simple enough for others to enhance it according to their needs.

 

[arnelgp]

a temporary table may do and prevent altering the original records.