لية لما أستخدم كود البحث هذا مع Data يضبط بينما مع Adodc مايضبط

اتمنى تساعدوني أحتاج التعديل في هذا الكود علشان أتعامل مع Adodc

أخي عدل الكود إلى

findstr = "No_m = '" & Val(Text3.Text) & "'"

Data1.Recordset.Find findstr

هذا الكود علشان أتعامل مع Adodc

اقتباس

هذا الكود علشان أتعامل مع Adodc

شكرا لك

ولكني أستخدم الان Adodc وليس الData

والكود اللي أنا وضعته كنت أستخدمه مع Data وكان يضبط اما مع Adodc فيظهر لي أخطاء

شكرا للاهتمامك

ولكني أرجوا أن تجدوا لي حل في أسرع وقت للاني أحتاج هذا الكود ضروري

ولا اتوقع ان مثل هذا الكود صعب على منهو بمستواكم

بانتظاركم على امل بالله ثم بكم

جزاك الله خير يا أخي .........

ضبطت والحمدلله ........

يعني يكون الامر كالتالي

Adodc1.Recordset.Find

لكن باقي شي بسيط

وهو إذا لم يجد الرقم يظهر رسالة MsgBox

للاني كنت أستخدم Nomatch مع الـData بينما Adodc لاتستخدم Nomatch

يعني ممكن مساعدة في تكملة الكود

وأنا بحاول فيه

بانتظار أقتراحاتكم

:) تفضل اخي العزيز ما طلبته من كود :

- هذا كود البحث باستخدام اداة ADODC كاملا وايضا كود فحص عدم وجود ما نبحث عنه .....

'اجراء عملية البحث عن اسم مكتوب في تكست بوكس

Adodc1.Recordset.Find "Name='"+text1.text+"'"


' التحقق من عدم وجود الاسم المدخل في حالة عدم وجوده بتظهر الرسالة وتخبرك بعدم وجود الاسم اما في حالة وجود الاسم يقوم بنقلها طبعا الي اداة ADODC وبودرها بتعرضا في DBGrid

if adodc1.recordset.Eof then

Msgbox "عفوا اسم العميل غير موجود"

exit sub

end if

الحمدلله أنتهت المشكله

الله يجزيك الفردوس الاعلى