كود برمجة زر خيار

[SAALY]

الأساتذة الأعزاء :

أرغب في أن يضع زر الخيار رقم معين في حقل عند تنشيطه و رقم آخر إذا لم يتم تنشيطه

ما الكود الذي يمكن وضعه لزر خيار ليضع قيمة معينة في الحقل و لتكن مثلا رقم "500"قبل التنشيط و رقم "1000" بعد التنشيط ، و لكم خالص حبي و شكري .

[الدكتور خضر الرجبي]

السلام عليكم

نفرض أن زر الخيار اسمه option1 وأن مربع النص اسمه c

في حدث بعد التحديث لزر الخيار تضع الكود التالي :

Private Sub Option1_AfterUpdate()
If Me.Option1 = True Then
 c = 500
Else
 c = 1000
End If
End Sub

مع الاحترام

[SAALY]

شكرا أستاذي العزيز ، ألف شكر