abouelhassan قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 الاخوة الافاضل الاساتذة جميعا هل بالامكان اختصار هذا الكود Private Sub CommandButton4_Click() TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" TextBox7.Value = "" TextBox8.Value = "" TextBox10.Value = "" TextBox11.Value = "" TextBox9.Value = "" TextBox101.Value = "" TextBox12.Value = "" ComboBox2.Value = "" ComboBox3.Value = "" ComboBox4.Value = "" ComboBox5.Value = "" ComboBox6.Value = "" ComboBox7.Value = "" ComboBox8.Value = "" ComboBox9.Value = "" ComboBox10.Value = "" ComboBox11.Value = "" ComboBox12.Value = "" End Sub رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 تفضل For T = 1 To 12 Me.Controls("TEXTBOX" & T).Value = Empty Next T TextBox101.Value = "" For C = 2 To 12 Me.Controls("COMBOBOX" & C).Value = Empty Next C رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 تفضل أخي الكريم Dim fctrl As Control For Each fctrl In Me.Controls If fctrl.Name Like "Text*" Or fctrl.Name Like "Combo*" Then fctrl = vbNullString Next 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 (معدل) الله يرضى عليكم استاذنا ابا نصار استاذنا محمد صالح كل الاحترام تم تعديل يناير 7, 2012 بواسطه abouelhssan رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 معذرة أخي الكريم العيدروس لم اشاهد إجابتك على الموضوع حل موفق بارك الله لك 1 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 لاعدمناك استاذ محمد صالح الحمد لله انك لم تشف ردي كنا سنفقد معلومه رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يناير 7, 2012 الكاتب مشاركة قام بنشر يناير 7, 2012 كل الشكر والاحترام من اخيكم بارك الله فيكم اساتذتى رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يناير 8, 2012 مشاركة قام بنشر يناير 8, 2012 معذرة أخي الكريم العيدروس لم اشاهد إجابتك على الموضوع حل موفق بارك الله لك لاعدمناك استاذ محمد صالح الحمد لله انك لم تشف ردي كنا سنفقد معلومه كل الشكر والاحترام من اخيكم بارك الله فيكم اساتذتى تواضع وحب العلم واحترام بارك الله فيكم جميعا رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر يناير 8, 2012 مشاركة قام بنشر يناير 8, 2012 معذرة أخي الكريم العيدروس لم اشاهد إجابتك على الموضوع حل موفق بارك الله لك لاعدمناك استاذ محمد صالح الحمد لله انك لم تشف ردي كنا سنفقد معلومه كل الشكر والاحترام من اخيكم بارك الله فيكم اساتذتى تواضع وحب العلم واحترام بارك الله فيكم جميعا اخوتى بارك الله فيكم التواضع سمة فى المنتدى اعزكم الله سعد عابد رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يناير 8, 2012 الكاتب مشاركة قام بنشر يناير 8, 2012 استاذنا خبور خير مروك كريم شرفنا بارك الله فيك استاذنا سعد مروك كريم رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 8, 2012 مشاركة قام بنشر يناير 8, 2012 صدق الاستاذ ابو نصار لم راي الماسة المنتدى الرد يمكن فاتتنا هذه المعلومة الجميلة تواضع وبذل بارك الله فيكم جميعاً رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يناير 8, 2012 الكاتب مشاركة قام بنشر يناير 8, 2012 اشرقت الانوار استاذنا عبدالله المجرب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان