بحث عن كلمة فى سجل

Data1.RecordSource = "select FieldName from Table where table " & text1.text
Data1.Refresh

هذا الكود سيعمل مع اداة Data على الفورم مشبوكة مع ال Database

هي ليست الا مسألة SQL Query Statement

أخ راكان أعتقد أن الأخ SaadAbuRezk يريد البحث عن كلمة داخل حقل ما فمثلا لو كان في الحقل الآية الكريمة قال تعالى"إن الصلاة كانت على المؤمنين كتابا موقوتا"

فالناتج المطلوب هي كلمة الصلاة وليس كامل الآية ..

وإذا كان هذا هو المقصود فيبقى استخدام الدالة Instr ولنفرض أن الحقل الخاص بالآية مربوط ب text1 فعندها يكون الكود

dim s as string
s=instr(1,text1.text,"الصلاة")

وشكرا ..

السلام عليكم

يمكن ايضا استعمال الدالة mid

وهي ترجع جزء من string

مثلا

for i=1 to (lentext1.text)
if mid(text1.text,i,3)="ali" then 
'اي امر
next

وهذا الكود يبحث عن كلمة ali داخل text1

والله انا خجلان ومش عارف اشكر مين الاول على كل حال بارك الله

فيكم جميعا واكثر من امثالكم للاسلام والمسلمين

السلام عليكم

اخي راكان اشكرك لتفاعلك مع الاعضاء ولكن يوجد خطأ مطبعي صغير في جملة الاستعلام اللي كتبتها

اسمح لي بتعديل المشاركة

Data1.RecordSource = "select FieldName from Table where Field Like '*" & text1.text & "*'"

Data1.Refresh