كيف يعود البحث في Ado بتيجة

بسم الله

اخي الكريم

السؤال مش واضح

هل تعرف طريقة البحث بال ado بس مش عارف الكود الذي يقابل ذلك الكود ...

هذا ما تقصده او لا ..... :blink:

اذا كان تريد الكود المقابل فهو

if ado.eof then

msgbox "not found"

end if

واذا كان قصدك ثاني ارجو التوضيح

اخوك خالد

المبرمج الطيب كتب:

بسم الله

اخي الكريم

السؤال مش واضح

هل تعرف طريقة البحث بال ado  بس مش عارف الكود الذي يقابل ذلك الكود ...

هذا ما تقصده او لا .....  :blink:

←

أخي الكريم المبرمج الطيب جزاك الله خيراً على ردك

ما أردته هو كيف أتفادى الخطأ الذي يظهر عندما يبحث المستخدم

عن اسم غير موجود

يعني في طريقة الربط DAO

أكتب الكود الذي قمت بذكره و هو

If rs.NoMatch = True Then 

MsgBox "لم يتم العثور على هذا الاسم" , vbCritical , "خطأ "

End If

المطلوب : الكود البديل لهذا الكود عند البحث بــ ADO

بسم الله

اخي الكريم

طيب نفس الكود اللي كتبته لك ... بس نسيت كلمة :rolleyes:

if ado.eof=true then
msgbox "هذا الاسم غير موجود"
end if

الكود السابق تضعه بعد كود البحث تمام ... وهو يعني التالي

eof هي اختصار ل end of file

اذا وصلت لآخر سجل اظهر رسالة تفيد ان الاسم غير موجود

الله يوفقك

دعواتك

اخوك خالد