ابحث عن كودالبحث

"DaoControl.findfirst "FieldName = name

مشكور اخي ويعطيك العافيه

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

تحياتي

المحروم

بسم الله الرحمن الرحيم

أرفق مثال وسيتم التعديل عليه

اليك كود ارتجالي

data1.recordset.movelast
x=data1.recordset..recordcount
data1.recordset.movefirst

if text1.text=text5.text then 
k=msgbox("this is the record that you are looking for",vbcritical,"HishamNasr")
exit sub
end if

for i=2 to x
data1.recordset.movenext
if text1.text=text5.text then 
k=msgbox("this is the record that you are looking for",vbcritical,"HishamNasr")
exit sub
end if
next
k=msgbox("record not found",vbcritical,"HishamNasr")

اجعل text1 تكون مربوطة بالجدول بالحقل المراد البحث فيه

و text5 تكتب فيها الاسم المراد البحث عنه ( بدون ان تربطه بالجدول) :)