كيفية اسناد حقول جدول من جملة البحث

اعتلي مثال لاني مش فاهم قصدك وواضح ان العملية سهلة ان شاء الله

اتصور الافضل لو انك وضعت grid لاستعراض النتائج لانه يمكن ان تكون هناك اكثر من نتيجة ويمكنك استخدام % لايجاد الاسم في اي مكان او مثلا البحث عن العائلة لكن كما في السؤال بعد فتح rs اعمل مايلي

if rs.eof then


txtname=""
txtphone=""
else

txtname=rs!name
txtphone=rs!phone

endif

اخي الكريم الجملة التي تكتبتها لي لم تتنفذ ابدا

ارجو المساعدة

كيف لم تنفذ؟

فالكود يجب ان يكون كما يلي

rs.open "select * from [tblph] where [name] = '" & trim(text1) & "'",db,adopenstatic,adlockreadonly
if rs.eof then

txtname=""
txtphone=""
else

txtname=rs!name
txtphone=rs!phone

endif

ويجب ان يكون عندك txtname & txtphone او يمكنك تغيير الاسماء بما يناسبك

السلام عليكم ورحمة الله وبركاته

اخي الكريم ... حياك الله

بالنسبة للمشاركة التي ارفقتها بالمنتدى والتي تخص ( كيفية اسناد حقول جدول ) .. لقد ارفقت لي المطلوب وانا اشكرك على التواصل والتعاون كما انني قمت بالرد على المشاركة وقلت لك ان الكود لم يعمل معي وهذا صحيح وغريب في نفس الوقت ؟؟!!!

اذا كان الكود الذي ارفقته لي يعمل عندك ولا يعمل عندي ما المشكلة اذا هل من الفيجوال بيسك ام من الجهاز بتاعي ام ماذا .. مع العلم انني سأقول لك أمر آخر وغريب بجهاز حصل في الأوانه الاخير اي قبل خمسة أيام وفي نفس هذا المشروع قمت بعمل اربعة ازرار وهي كالتالي ( الاول - السابق - التالي - الاخير ) وقمت بكتابة الكود لهم جميعا والكود كنت استخدمه قديما ويعمل لدي في مشاريع كثيره إلاّ في هذا المشروع واي مشروع آخر وخصوصا هذه الايام لا يتنفذ اي امر عندما اقوم بالضغط على احد الازرار السابقة او تظهر لي الرسالة التالية :

Run-time error '424' :

Object reqired

ومن هنا نستنتج ان الجملة الخاصة بالبحث لم تتنفذ ابدا

ملاحظة : عملية التحديث والاضافة لقاعدة البيانات تتم بشكل جيد من دون مشاكل لكن عملية البحث والعودة بالنتائج وتنفيذ عمليات السابق والتالي لا تتم بالطريقة السابقة

ارجو حل المشكلة ولك مني جزيل الشكر

يوجد خطأ في تعريف احد الادوات او db وعلى الاغلب من الاتصال يجب ان تعرف الاتصال

dim db as new connection

db.open "ضع وصف الاتصال الى قاعدة البيانات هنا "

rs.open......