ممكن اختصار هذا الكود

[abouelhassan]

الاخوة الافاضل الاساتذة جميعا

هل بالامكان اختصار هذا الكود

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

[الـعيدروس]

تفضل

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

[أ / محمد صالح]

تفضل أخي الكريم

Dim fctrl As Control

For Each fctrl In Me.Controls

If fctrl.Name Like "Text*" Or fctrl.Name Like "Combo*" Then fctrl = vbNullString

Next

[abouelhassan]

الله يرضى عليكم استاذنا ابا نصار استاذنا محمد صالح كل الاحترام

تم تعديل يناير 7, 2012 بواسطه abouelhssan

[أ / محمد صالح]

معذرة أخي الكريم العيدروس

لم اشاهد إجابتك على الموضوع

حل موفق

بارك الله لك

[الـعيدروس]

لاعدمناك استاذ محمد صالح

الحمد لله انك لم تشف ردي

كنا سنفقد معلومه

[abouelhassan]

كل الشكر والاحترام من اخيكم

بارك الله فيكم اساتذتى

[عبدالله باقشير]

معذرة أخي الكريم العيدروس

لم اشاهد إجابتك على الموضوع

حل موفق

بارك الله لك

لاعدمناك استاذ محمد صالح

الحمد لله انك لم تشف ردي

كنا سنفقد معلومه

كل الشكر والاحترام من اخيكم

بارك الله فيكم اساتذتى

تواضع وحب العلم واحترام

بارك الله فيكم جميعا

[saad abed]

معذرة أخي الكريم العيدروس

لم اشاهد إجابتك على الموضوع

حل موفق

بارك الله لك

لاعدمناك استاذ محمد صالح

الحمد لله انك لم تشف ردي

كنا سنفقد معلومه

كل الشكر والاحترام من اخيكم

بارك الله فيكم اساتذتى

تواضع وحب العلم واحترام

بارك الله فيكم جميعا

اخوتى

بارك الله فيكم

التواضع سمة فى المنتدى

اعزكم الله

سعد عابد

[abouelhassan]

استاذنا خبور خير مروك كريم شرفنا بارك الله فيك

استاذنا سعد مروك كريم

[عبدالله المجرب]

صدق الاستاذ ابو نصار

لم راي الماسة المنتدى الرد يمكن فاتتنا هذه المعلومة الجميلة

تواضع وبذل

بارك الله فيكم جميعاً

[abouelhassan]

اشرقت الانوار استاذنا عبدالله المجرب