Search Button

[yrstruly]

Im trying to implement a search function based on Farm/Client name. Button opens but it does not search and/or gives no action.
The button filters on this Query

SELECT qryLabClients.ClientID, qryLabClients.ClientName, qryLabClients.Contact, qryLabClients.Tel, qryLabClients.Email, qryLabClients.Initials, qryLabClients.CompNameFROM qryLabClients
ORDER BY qryLabClients.ClientName;
The query does produce desired output.

Private Sub btnSearch_Click()    Dim s As String
    s = InputBox("Enter full or partial client name to search:", "Search Client")
    
    If s = "" Then
        Me.FilterOn = False
        Exit Sub
    End If


    ' Use the aliased field name from the query
    Me.Filter = "[ClientName] LIKE '*" & s & "*'"
    Me.FilterOn = True
End Sub

[Welshgasman]

Firstly Buttons do no open?

Learn to walk your code and inspect the variables. Either by hovering over them or printing then in the immediate window with ? s

ClinetName is not aliased either?

And

qryLabClients.CompNameFROM

is not going to work either?

[Micron]

Input boxes are a poor and inefficient means of input for cases like this anyway. A combo with 2 columns, 1st one being bound; clientID (autonumber, hidden) and clientName (short text and visible) would be better. That would also eliminate the need for filtering as there is further inefficiency from loading all records in a form (I suppose the query is the recordsource for the form, and that query has no WHERE clause) and then applying a filter to that. If the combo would have too many records to drop down, then it can be made to filter the list as you type the client name.