اخواني السلام عليكم
لدي كود بحث يشتغل اذا وجد اي حرف في الاسم لكن اذا لم يجد الحرف فإن زر البحث لا يبالي ولايعطي رسالة تخبر المستخدم انه لم يجد مايبحث عنه وهذا هو الكود ارجو ممن يستطيع تفعيله اوتعديله ان يتفضل مشكورا
Case 1
Data1.RecordSource = ("select * from dalel where name like '*" & Text4.Text & "*'")
If Data1.Recordset.EOF Then
MsgBox "لايوجد اسم يحتوي على هذا الحرف!!!", vbMsgBoxRight + vbMsgBoxRtlReading + vbOKOnly, "نتيحة البحث"
Data1.Refresh
End If
سبحان الله وبحمده عدد خلقه وزنة عرشه ومداد كلماته
عملت لك بتعديل بالكود عسى ان يعمل لك المطلوب
Data1.RecordSource = ("select * from dalel where name like '*" & Text4.Text & "*'")
If Data1.Recordset.recordcount=0 Then
MsgBox "لايوجد اسم يحتوي على هذا الحرف!!!", vbMsgBoxRight +
End If
vbMsgBoxRtlReading + vbOKOnly, "نتيحة البحث"
Data1.Refresh
شكرا جزيلا لك ياأخ معتصم 1969 سأحاول تجربة الكود وموافاتك بالنتيجة ان شاء الله
لك احترامي
سبحان الله وبحمده عدد خلقه وزنة عرشه ومداد كلماته
نعم اخي اشتغل الكود وجزاك الله عني خيرا لكنه لايشتغل من ضغطة الزر الاولى فما السبب ياترى أرجو اعطائي فكرة اعالج بها المشكلة
على فكرة البحث يجري على نوعين من الادوات مربع نص وDBgrid بمعنى ان نتيجة البحث تظهر في مربع حقل الاسم ومربع حقل رقم الهاتف ومربع رقم الموبايل اضافة الى أداة DB وبها نفس الحقول السابقة
لك تقديري واحترامي
سبحان الله وبحمده عدد خلقه وزنة عرشه ومداد كلماته
اخي لم افهم مشكلتك بالتحديد
لاتمكن من مساعدتك ارفق البرنامج ان كان صغيرا او ضع الفورم الذي به المشكلة لاتمكن من مساعدتك او قد يساعدك غيري فالمنتدى مليء بالمحترفين و انا مبتديء مثلك
رد الاخ معتصم 1969 صحيح ولا عليه غبار اضيف فقط عليه حسب ما فهمت من الاخ abosaad54 اظهار النتائج على Textbox كمثال :
Data1.RecordSource = ("select * from dalel where name like '% " & Text4.Text & %' ")
Data1.Refresh
If Data1.Recordset.recordcount=0 Then
' في حالة عدم وجود نتائج للبحث
MsgBox " : لايوجد اسم يحتوي على هذا الحرف " & Text4
else
' في حالة وجود نتائج للبحث
Data1.Recordset.MoveFirst ' يتم تحريك المؤشر لاول سجل في ملف قاعدة البيانات
Text1= Data1.Recordset(0) ' وضع محتويات الحقل الاول
Text2= Data1.Recordset(1) ' وضع محتويات الحقل الثاني
Text3= Data1.Recordset(2) ' وضع محتويات الحقل الثالث
End Ifهذا والله الموفق والمسدد
ليس كل ما يتمناه المرء يدركه
اخواني السلام عليكم ورحمة الله وبركاته
كل عام وانتم بخير وعيدكم مبارك
أقول الكود اشتغل صح وأدى المطلوب منه واذا وجد الاسم الذي به الحرف ( مجال البحث) فلا مشكلة كل شيء على مايرام لكن اذا لم يجد الحرف المطلوب البحث عنه فإن الرسالة لاتظهر مباشرة وانما تظل مختبئة حتى يتم النقر على زر البحث مرة اخرى أما الحقول فتمحى جميعها سواء في مربعات النص أو DB
حتى أبحث عن حرف موجود أو أخرج من البرنامج وأعود من جديد السؤال لماذا لاتظهر الرسالة فور عدم وجود المطلوب وهذا هو المهم
أشكر لكم اهتمامكم والله يعطيكم العافية
أخوي معتصم 1969 واخوي العقده
سبحان الله وبحمده عدد خلقه وزنة عرشه ومداد كلماته
يعطيك العافية
وانا اريده والله وراح اجربه
تشكر يالغلا
يعطيك العافية
وانا اريده والله وراح اجربه
تشكر يالغلا
هذا الموضوع مغلق.