السلام عليكم
كتبت دالة IF كالتالي لكن لا ادري لماذا يوجد خطأ END IF WITHOUT BLOCK IF
Private Sub endate_AfterUpdate()
Dim X, Z As Integer
X = #1/1/2018#
Z = #12/31/2018#
If Me.endate >= X And Me.endate <= Z Then MsgBox ("التاريخ يجب ان يكون خلال عام2018")
endate = Date
End If
Refresh
End Sub