السلام عليكم ورحمة الله وبركاتة
السؤال : إذا كان لدى فورم فيها أكثر من 20 text box و command
مهمة الزر هى جمع قيم ال20 text box
أنا أستخم هذا الكود لجعل قيمة خانة لم يدخلها المستخدم = 0 عشان البرنامج يكمل من غير أخطاء
if txt1.text="" then
txt1.txt=0
end if
طيب لو في 20 أو 30 خانة ماذا أفعل هل أكتب الكود 30 مرة مع
اسف لم أتمكن من رفع المثال نظر الى بطئ الشبكة
اقتباسif txt1.text="" thentxt1.txt=0
end if
اخي العزيز مبدئيا تستطيع استخدام الدالة NZ
والتي تقوم بارجاع القيمة صفر للقيم الخالية null
على سبيل المثال
txtbox1=NZ(txtbox1;0)
على كل حال يوجد ملف مرفق يعيد القيمة صفر لمربعات النص الفارغة وكذلك كود لقراءة جميع المربعات الموجودة بالنموذج بغض النظر عن عددها
اقتباس[وسط]اللهم ارحمنا إذا اشتدت السكرات، وفاضت العبرات، وتعطلت القوى و القدرات.اللهم ارحمنا إذا يئس منا الطبيب ،وبكى علينا الحبيب ، واشتد البكاء و النحيب.
اللهم ارحمنا إذا حملنا على الأعناق ، و التفت الساق بالساق، إلى ربك يومئذ المساق.
اللهم ارحمنا إذا وارينا التراب، وغلقت الأبواب، وانفض الأهل و الأحباب
[/وسط]
