دمج حدثين ليصبح حدث واحد

السلام عليكم اخواني

بدي منكم مساعدة بخصوص دمج هذين الحدثين ويكونا في حدث واحد ويظهر مفعولهما عند الثاني مرة واحدة فقط

اي عندما اكتب قيمة المشاركة يشترط عليا ان اكمل معها تاريخ المشاركة ثم يقوم الحدث بتوزيعهما على كل الموظفين

الحدث الأول : في مربع نص t1 بعد التحديث

Private Sub t1_AfterUpdate()
Dim x As Integer
Dim y As Integer
x = t2
If y < x Then

For y = 1 To x

TheDiscount = t1
Discount_Date = Discount_Date
DoCmd.GoToRecord , , acNext
Next
Else
End If
 MsgBox "تمت عملية التوزيع بنجاح!", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة"
End Sub

الحدث الثاني:  في مربع نص t3 بعد التحديث

Private Sub t3_AfterUpdate()
Dim x As Integer
Dim y As Integer
x = t2
If y < x Then

For y = 1 To x

Discount_Date = t3
DoCmd.GoToRecord , , acNext
Next
Else
End If
 MsgBox "تمت عملية التوزيع بنجاح!", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة"
End Sub

توزيع.rar