الاستاذ مجدي يونس
بعد التحية،،
بعد اذن حضرتك انا نفذت فورم لاضافة العملاء بجميع بياناتهم وفورم اخر للتعديل معتمدا على فورم خاص بالبحث والكود يعمل بشكل ناجح جدا مع العملاء الذين تمت اضافتهم من خلال اليوزرفورم
ولكن مع العملاء الذين تم انشائهم قبل اليوزفورم فالكود لا يعمل معهم غير التيكست بوكس المرتبط بنتيجة البحث من خلال يوزرفورم البحث
لباقى التنيسكت بوكس" vlookup" مع العلم انى استخدمت
فهل هناك شئ ناقص لكى يعمل الكود مع البيانات المضافة بطريقة يدوية كما يعمل مع المضاف عن طريق اليوزرفورم
ولحضرتك والسادة الافاضل جزيل الشكر
الكود
dim lastrow as long
on error resume next
lastrow = sheets("العملاء").cells(cells.rows.count, "a") .end(xlup) .row
me. txtname.value = worksheetfunction .vlookup (val(txtcode.text),sheets("العملاء").range("a:z") & lastrow),2,false)
me. user.value = worksheetfunction .vlookup (val(txtcode.text),sheets("العملاء").range("a:z") & lastrow),3,false)
me. tel.value = worksheetfunction .vlookup (val(txtcode.text),sheets("العملاء").range("a:z") & lastrow),4,false)
>>>>>>الخ