توزيع بتنسيق حدث بشرط

السلام عليكم 

عملت حدثا لتوزيع مبالغ وتاريخ معين بمساعدة الأستاذة الفاضلة زهرة

ولما طبقته وجدته يوزع لكل السجلات بما فيهم

"المتقاعدين"و"فسخ عقد" و"الوفاة" و"إستقالة"و"تحويل"و"عطلة مرضية"

والمطلوب هو إستثناء هؤلاء  الستة حالات من التوزيع في الحدث

يعني يكتب لهم 0.00 في مبلغ المشاركة ولايكتب تاريخ المشاركة لهم

Private Sub t3_AfterUpdate()
Dim x As Integer
Dim y As Integer
x = t2
If y < x Then
 
For y = 1 To x
TheDiscount = t1
Discount_Date = t3
DoCmd.GoToRecord , , acNext
Next
Else
 
End If
 MsgBox "تمت عملية توزيع المبلغ وتاريخ المشاركة لكل الموظفين بنجاح!", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة"
 
End Sub

za-توزيع.rar