Split Form Key words (1 Viewer)

Function t()

Dim searchstr As String
Dim compstr As String
Dim var() As String
Dim i As Integer

searchstr = "WORD1,WORD2,ETC..."  [COLOR="Green"]'ex - "in,the,and,or"[/COLOR]

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("YOUR TABLE NAME")

rs.MoveLast
rs.MoveFirst

Do Until rs.EOF

    var = Split(rs.Fields("TITLE FIELD"), " ")

        For i = LBound(var) To UBound(var)
            If InStr(searchstr, var(i)) = 0 Then
                compstr = compstr & var(i) & " "
            End If
        Next i
        
            compstr = Left(compstr, Len(compstr) - 1)
                 rs.edit
                 rs.fields("SEARCH TERMS") = compstr
                 rs.update
            compstr = ""
                 rs.MoveNext
            
Loop

rs.Close
Set rs = Nothing

End Function