ماهو الخطأ الموجود في زر البحث

السلام عليكم اخي فاضل

كود زر البحث بعد التعديل

Y = txtsearch.Text
s = "Name like'*" & Y & "*'"
If Y = "" Then
MsgBox "من فضلك أكتب في الحقل الاسم المراد البحث عنه ", vbMsgBoxRtlReading + vbInformation, "بحث"
Else
Data1.Recordset.FindFirst s
If Data1.Recordset.NoMatch = False Then

Form1.txtname = Data1.Recordset!Name
Form1.txtnumber = Data1.Recordset!Number
If Len(s) > 0 Then
CmdNextSearch.Enabled = True
End If

CmdNextSearch.Enabled = True
Else
MsgBox "عفواً هذا الاسم لا يوجد في قاعدة البيانات", vbOKOnly + vbMsgBoxRtlReading + vbInformation, "بحث"
End If
End If

بالتوفيق ان شاء الله

اخي الكريم شكرا لجهدك ولكني عدلت عليه من قبل نفس تعديلك ولم تحل اي زر البحث لم يعمل

ارجو ان تجرب التعديل بنفسك على المثال المرفق وسوف تظهر رسالة تقول بان الاسم المدخل غير موجود

السلام عليكم اخي فاضل

اولا: قبل ان اكتب لك الكود قد تأكدت من انه يعمل بالشكل الصحيح

ثانيا : لا ادري لماذا تخفي تكست البحث txtsearch.Text الموجوده على الفورم

ثالثا : الكود

Y = txtsearch.Text
s = "Name like'*" & Y & "*'"

وهذا يعنى انك تستخدم التكست txtsearch.Text في البحث عن الاسم ..وقد استخدمتها في البحث عن اسم محمد المخزن في قاعدة البيانات واشتغل تمام

عبدالجليل العقوري كتب:

السلام عليكم اخي فاضل

اولا: قبل ان اكتب لك الكود قد تأكدت من انه يعمل بالشكل الصحيح

ثانيا : لا ادري لماذا تخفي تكست البحث txtsearch.Text الموجوده على الفورم

ثالثا : الكود

Y = txtsearch.Text
s = "Name like'*" & Y & "*'"

وهذا يعنى انك تستخدم التكست txtsearch.Text في البحث عن الاسم ..وقد استخدمتها في البحث عن اسم محمد المخزن في قاعدة البيانات واشتغل تمام

اشكرك اخي عبد الجليل وتعديلك صحيح وانا آسف لم انتبه لأخفاء تكست البحث وعندما غيرت خاصية الإخفاء اشتغل الكود بشكل صحيح جزاك الله كل خير وبارك الله فيك

عبدالجليل العقوري كتب:

السلام عليكم اخي فاضل

اولا: قبل ان اكتب لك الكود قد تأكدت من انه يعمل بالشكل الصحيح

ثانيا : لا ادري لماذا تخفي تكست البحث txtsearch.Text الموجوده على الفورم

ثالثا : الكود

Y = txtsearch.Text
s = "Name like'*" & Y & "*'"

وهذا يعنى انك تستخدم التكست txtsearch.Text في البحث عن الاسم ..وقد استخدمتها في البحث عن اسم محمد المخزن في قاعدة البيانات واشتغل تمام

اشكرك اخي عبد الجليل وتعديلك صحيح وانا آسف لم انتبه لأخفاء تكست البحث وعندما غيرت خاصية الإخفاء اشتغل الكود بشكل صحيح جزاك الله كل خير وبارك الله فيك