روش جستجوی کامل در یک عبارت متنی چیست؟

[khalil-s]

سلام به اساتید اکسس
من زیاد در لابلای تاپیک ها به دنبال یک سرچ کامل متن گشتم ولی هنوز به هدفم دست پیدا نکردم، امیدوارم یک نفر بتونه این مشکل من یا شاید خیلی ها رو حل کنه.
سوال:
اگر این یکی از متن های ما باشد " برای اینکه به هدفی بزرگ برسید باید به انسانی بزرگ تر تبدیل شوید."
چطور می توانم با تایپ این کلمات زیر در یک باکس جستجو به آن متن یا مشابه آن دست پیدا کنم
کلمات جستجو به اینصورت باشد: " هدف تبدیل انسان "

توجه کنید که من در این جستجو دنبال هدفهای زیر هستم:
1- از چند کلمه استفاده کنم (یعنی با نوشتن هر کلمه یک فیلتر جدید اضافه شود)
2- ترتیبی بین این چند کلمه هم وجود نداشته باشد (مثلا انسان قبل از کلمه تبدیل است)
3- هر یک از کلمه ها هم ممکنه کامل تایپ نشده باشه (مثلا هدف بجای کلمه هدفی نوشته شده)

[khalil-s]

دوستان یعنی اینقدر سئوال من پیچیده بود که حتی یک کلمه نمی شود هم در پاسخ به من داده نشده؟!!

این روش جستجو در برنامه حسابداری آوا پرداز که فکر می کنم با VB نوشته شده به خوبی داره اجرا میشه و چیز عجیب و غریبی نیست.

[Abbas Amiri]

تابع زیر منظورتان را برآورده میکند


' Example:
' Me.Filter = ExtendedFilter ("هدف تبدیل انسان","MyField")
' Return Value: MyField LIKE '*هدف*' OR MyField LIKE '*تبدیل*' OR MyField LIKE '*انسان*'

Function ExtendedFilter(strString As String, fldName As String) As String
Dim workTb() As String
Dim k As Integer
workTb = Split(strString, " ")
For k = 0 To UBound(workTb)
ExtendedFilter = ExtendedFilter & " " & fldName & " LIKE '*" & workTb(k) & "*' OR"
Next
ExtendedFilter = Left(ExtendedFilter, Len(ExtendedFilter) - 3)
End Function