طيب ياخوان حاولت اضع كود لكن للاسف يعطيني خطا في المعادلة ارجوا منكم التكرم بتصحيح الكود
Private Sub MTYPE_AfterUpdate()
If [MTYPE] = "Spouse" Then
[AMOUNT PER DATE] = 3212 / 364 * Me.COVERED
ElseIf [MTYPE] = "son" Then
[AMOUNT PER DATE] = 2151 / 364 * Me.COVERED
ElseIf [MTYPE] = "Daughter" Then
[AMOUNT PER DATE] = 2151 / 364 * Me.COVERED
ElseIf [MTYPE] = "Parents" Then
[AMOUNT PER DATE] = 2151 / 364 * Me.COVERED
ElseIf [MTYPE] = "Others" Then
[AMOUNT PER DATE] = 2151 / 364 * Me.COVERED
ElseIf [MTYPE] = "Employee" Then
[AMOUNT PER DATE] = 2151 / 364 * Me.COVERED
End If
End Sub