إلى الأخوة الأعزاء أتمنى أن تكرموني بمساعدتكم
عند البحث بين السجلات بالدالة inputbox مع الأداة data
بعد وضع القيمة وضغط ok لا يوجد مشكلة , ولكن المشكلة عند الضغط على
cancel , فما النقص في الكود
qry = inputbox"enter name emp"1
data1.recordset.findnixt qry
أولا -- لست أرى السعادة جمع مال ** ولكن التقي هو السعيد
ثانيا-- وإن ضاق رزق اليوم فاصبر إلى غد *** عسى نكبات الدهر عنك تزول
ثالثا-- أصون عرضي بمالي لا أدنسه *** لا بارك الله بعد العرض بالمال
وأخيرا -- قال تعالى ( يوم لا ينفع مال ولا بنون إلا من أتى الله بقلب سليم )
السلام عليكم
أخي جرب هالكود :لكن اسمحلي لاني ما فهمت قصدك زين
qry = inputbox"enter name emp"1
If qry=VbCancel Then Exit sub
data1.recordset.findnixt qry
مع تحياتي
جزيت خيرا كثيرا
أولا -- لست أرى السعادة جمع مال ** ولكن التقي هو السعيد
ثانيا-- وإن ضاق رزق اليوم فاصبر إلى غد *** عسى نكبات الدهر عنك تزول
ثالثا-- أصون عرضي بمالي لا أدنسه *** لا بارك الله بعد العرض بالمال
وأخيرا -- قال تعالى ( يوم لا ينفع مال ولا بنون إلا من أتى الله بقلب سليم )
بارك الله فيك واحسنت
هذا الموضوع مغلق.