Hi, I've tried to integrate this with the older search form method where there are multiple search boxes. In my case I have a textbox that looks at first and Last name, and a combobox that selects a department by ID.. I did note the previous post on this issue and allow additions is set to "on" on the form. the error seems to throw when there is not a result from the input.

Code:

Private Sub RequeryForm()


Dim SQL As String
Dim WHEREstr As String
Dim SORTstr As String
          
        
        WHEREstr = ""
        SORTstr = ""
                  
        If txtNameSearch <> "" Then
        If WHEREstr <> "" Then WHEREstr = WHEREstr & " AND "
        WHEREstr = WHEREstr & _
        "PersonelT.FirstName LIKE ""*" & txtNameSearch.Text & "*"" OR " & _
        "PersonelT.LastName LIKE ""*" & txtNameSearch.Text & "*"""
        End If
        '***the error 2185 will highlight the above 3 lines

        If cmbDepSearch <> "" Then
        If WHEREstr <> "" Then WHEREstr = WHEREstr & " AND "
        WHEREstr = WHEREstr & "PersonelT.DepartmentID =" & cmbDepSearch
        End If
      
      SQL = "SELECT PersonelT.PersonelID, PersonelT.email, [FirstName]  " & _
            "& "" "" & [LastName] AS FullName, PersonelT.FirstName,  " & _
            "PersonelT.LastName, PersonelT.DepartmentID, PersonelT.DivisionID,  " & _
            "DepartmentT.DepartmentName, PersonelT.FirstName " & _
            "FROM PersonelT INNER JOIN DepartmentT ON PersonelT.DepartmentID  " & _
            "= DepartmentT.DepartmentID"

        If WHEREstr <> "" Then
        SQL = SQL & " WHERE " & WHEREstr
        End If

Me.RecordSource = SQL & SORTstr

End Sub



Private Sub txtNameSearch_Change()

RequeryForm
txtNameSearch.SetFocus
txtNameSearch.SelStart = Len(txtNameSearch.Text)


End Sub

Private Sub cmbDepSearch_AfterUpdate()

RequeryForm

End Sub