Universal Search

[drunkenneo]

I am working on universal search as the code :

Dim sFind As String
        Dim sField As String
    Dim sFilter As String
    
    If bFindLastKeySpace Then
       Search.Value = Search.Value & " "
      Search.SelStart = Len(sFind) + 2
    Else
        Search.SelStart = Len(sFind) + 1
    End If

    Search.SetFocus
    sFind = Nz(Search.Text, "")
    If Len(sFind) > 0 Then
        Dim iField, iFieldsIncluded As Integer
        iFieldsIncluded = 0
        sFilter = ""
        For iField = 0 To iFields - 1
            Select Case rsMe.Fields(iField).Type
            Case dbBoolean    'Field types not to search in
                'Don't include it
            Case Else
                sField = rsMe.Fields(iField).Name
               If iFieldsIncluded > 0 Then sFilter = sFilter & " Or "
                    sFilter = sFilter & "[" & sField & "] Like '*" & sFind & "*'"
                    iFieldsIncluded = iFieldsIncluded + 1
               End Select
        Next iField
****            Me.Filter = sFilter
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If
        Search.SetFocus
'Search.SelLength = 0
    bFindLastKeySpace = False

When i am trying to search "Man hood" Its giving error on ** marked line , "Error 2176, The setting of property is too long", Please Help?

[ranman256]

You have it in a loop.. (sFilter = sFilter & "[" & sField)
It's possible you keep adding on , and on, thus making the filter string too large. (char length)

You shouldnt need that many key words.