التعديل على حدث بعد التحديث

لقد تطرقت لحل جزئي ولكن بقي إسم الشهر يكتب رقم وليس اسم كما بالصورة أسفله

Private Sub TheDiscount_AfterUpdate()
If MsgBox("هل تريد تثبيت التاريخ ", vbYesNo) = vbYes Then Me.Discount_Date = Date
If MsgBox("هل تريد كتابة الملاحظة ", vbYesNo) = vbYes Then Me.Obsérvation = " خصم من الراتب لشهر" & Year(Date) & Month(Date)

End Sub

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

Private Sub TheDiscount_AfterUpdate()
If MsgBox("هل تريد تثبيت التاريخ ", vbYesNo) = vbYes Then Me.Discount_Date = Date
If MsgBox("هل تريد كتابة الملاحظة ", vbYesNo) = vbYes Then Me.Obsérvation = " خصم من الراتب لشهر" & Year(Date) & Format(Month(Date),"m")
End Sub

zahrah كتب:

 

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

Private Sub TheDiscount_AfterUpdate()
If MsgBox("هل تريد تثبيت التاريخ ", vbYesNo) = vbYes Then Me.Discount_Date = Date
If MsgBox("هل تريد كتابة الملاحظة ", vbYesNo) = vbYes Then Me.Obsérvation = " خصم من الراتب لشهر" & Year(Date) & Format(Month(Date),"m")
End Sub

شكرا استاذة على الرد

للأسف الطريقة لم تفلح

ولقد توصلت للحل

Private Sub TheDiscount_AfterUpdate()
If MsgBox("هل تريد تثبيت التاريخ ", vbYesNo) = vbYes Then Me.Discount_Date = Date
If MsgBox("هل تريد كتابة الملاحظة ", vbYesNo) = vbYes Then Me.Obsérvation = " خصم من الراتب لشهر" & " " & MonthName(Month([Discount_Date])) & " " & Year(Discount_Date)
End Sub

بغض النظر عن فتح موضوع أخر لطلبي

أرجو مساعدة بخصوص تعميم المبلغ على نفس النموذج السالف الذكر لباقي السجلات

مثلا

      في شهر مارس 2013 يقتطع مبلغ 1000

     في شهر مـــاي 2014 يقتطع مبلغ 2000

حسب الصورة

Discount.rar