نجوم المشاركات

تحية طيبة لكل أحبابي أعضاء ومشرفي منتدى أوفيسنا بيتنا الثاني جميعاً عذرا لغيابي عنكم في الفترة الأخيرة نظرا لانشغالي بأعمال امتحانات نهاية العام في عملي واليوم موعدنا مع الفصل الثامن من الدورة وهو يخص تصحيح الأخطاء وهذا هو الجزء الأول الخاص بأنواع الأخطاء وبإذن الله سيتم رفع الجزء الثاني قريبا جدا وفقنا الله وإياكم لكل ما يحبه ويرضاه ولا ينقصني سوى دعاؤكم

الكود التالي يعيد كافة القيم الإفتراضية لحقول النموذج ، وكأننا ننتقل لسجل جديد ... Private Sub btnClear_Click() Dim ctl As Control On Error Resume Next For Each ctl In Me.Controls ctl.Value = ctl.DefaultValue Next Set ctl = Nothing End Sub والسلام ختام