ليس هناك ازعاج اخي الكريم ولكن القصد حتى نصل لما تريد لاقصر الطرق .... بارك الله فيك
وهذه طريقة اخرى جربها واعلمنا بالنتيجة
Function FnSearch(Str As String) As String
Dim Arr() As String
Dim i As Long
Arr = Split(Str)
' """" & txtSearch & """"
For i = 0 To UBound(Arr) - 1
If Nz(DLookup("LikeA", "KindX", "LikeA='" & Trim(Arr(i)) & "'"), 0) <> 0 Then
FnSearch = DLookup("LikeB", "KindX", "LikeA='" & Trim(Arr(i)) & "'")
Exit For
ElseIf Nz(DLookup("LikeA", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & "'"), 0) <> 0 Then
FnSearch = DLookup("LikeB", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & "'")
Exit For
End If
Next i
End Function
Replace&add.mdb