البحث بالحرف الأخير يكاد يجنني !

تفضل

1- البحث بكامل النص

2-اول النص

3-اخر النص مجرب وشغال مية مية

4-اي جز من النص

واي خدمة انا مستعد

'=======================================(1)
If Combo1.ListIndex = 0 Then
If Option1.Value = True Then
RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '" & Trim(Text77) & "'", db, adOpenStatic, adLockPessimistic
End If
If Option2.Value = True Then
RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '%" & Trim(Text77) & "';", db, adOpenStatic, adLockPessimistic
End If
If Option3.Value = True Then
RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '" & Trim(Text77) & "%';", db, adOpenStatic, adLockPessimistic
End If
If Option4.Value = True Then
RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '%" & Trim(Text77) & "%';", db, adOpenStatic, adLockPessimistic
End If
End If
'==============================================================

هذا هو الكود المطلوب باختصار

If Option3.Value = True Then

[RS.Open "SELECT * FROM [workers] WHERE [f1] LIKE '" & Trim(Text77) & "%';", db, adOpenStatic, adLockPessimistic

End If

جزاكم الله خيرا

من مدة وأنا أبحث عن مثل هذا الموضوع

ممكن مثال تجريبي لتتضح الفكرة أكثر

اخي المهنا ..

عذرا ولكن الكود السابق ايضا لم ينفع !!! هنناك رساله تظهر لي تخبرني بأن هناك خطأ في صياغه الجملة !

تفضل

احسن مثال بحث على شانك ل sharer

________.rar