اخواني اريد المساعدة

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

تحضرني الآن هذه الطريقه عن طريق الكود

'في حدث عند الخروج من عنصر التحكم تكست بوكس 
dim db as database
dim rs as recordest

set db = currentdb()
set rs = db.openrecordest("select * from table1 where code like " &text1&")
if rs .recordcount <> 0 then
rs.movelast
rs.movefirst
me.nametxt = rs.fildes("name").value
else
msgbox "هذا الرقم غير مسجل "
end if

هذا كود تقريبي قد يكون هناك أخطاء ولكني لم أجرب ذلك وهو بشكل سريع وستحتاج إلى بعض التعديلات فإن عمل وإلا أخبرني إن لم تجد

حل آخر

(فتح قاعدة البيانات خاصه بأكسس فإذا كنت على فيجول بيسك إفتح قاعد البيانات من مسارها بوسطه OPENDATABASE)

وشكرا

لتنسيق الكود استخدم التالي

[/*code2] بدون علامة النجمة

وشكرا

شكرأ programmer2001

أرجو لك مزيداً من التوفيق