UnionWhere

Dim SQL$
Dim rs as recordset
Dim db as database

Set db = OpenDatabase(yourdatabase)
SQL$ = "SELECT * FROM " & yourdatabase
SQL$ = SQL$ & MakeSQLString(Text1.text,"title")
Set rs = db.OpenRecordset(SQL$)

'In the Textbox you can put your searchwords. If you want to use

'AND / OR (or anything 'else that you like but don't forget to specify

'it in the code!) If you put just words without a separator than the

'AND is used.


'----------- code -------------

Function MakeSQLString(bron$, vField$)
Dim p, l_counter%, t%
Dim TempBron$, tempdata$
Dim criteria() As String
Dim lastCriteria As Boolean

TempBron$ = bron$
t% = 0
For l_counter% = 1 To Len(bron$)
p = InStr(TempBron$, Chr(32))
If p <> 0 Then
ReDim Preserve criteria(t%)
criteria(t%) = Left$(TempBron$, p - 1)
TempBron$ = Right$(TempBron$, Len(TempBron$) - p)
t% = t% + 1
l_counter% = l_counter% + p
End If
Next l_counter%
ReDim Preserve criteria(t%)
criteria(t%) = TempBron$

lastCriteria = True
tempdata$ = " WHERE "
For l_counter% = 0 To t%
Select Case criteria(l_counter%)
Case "EN", "en", "AND", "and", "+"
tempdata$ = tempdata$ & " AND "
lastCriteria = True
Case "OF", "of", "OR", "or"
tempdata$ = tempdata$ & " OR "
lastCriteria = True
Case Else
If Not lastCriteria Then
tempdata$ = tempdata$ & " AND ( " & vField$ & " LIKE '*" & criteria(l_counter%) & "*') "
Else
tempdata$ = tempdata$ & "( " & vField$ & " LIKE '*" & criteria(l_counter%) & "*') "
lastCriteria = False
End If
End Select
Next l_counter%

MakeSQLString = tempdata$

End Function