ربط تاريخ البرنامج

السلام عليكم

سأفترض أن تاريخ الإصدار لديك اسمه ( Date1 ) وتاريخ الانتاج اسمه ( Date2 ) وتنسيق بياناتهما ( تاريخ )

Private Sub Date2_AfterUpdate()
If Me.Date2 > Date1 + 14 Then
Me.Date2.SetFocus
MsgBox "يجب أن لايتعدى 14 يوما "
ElseIf Me.Date2 < Date1 Then
Me.Date2.SetFocus
MsgBox "تاريخ الاصدار أكبر من تاريخ النهاية "
End If
End Sub

جزاك الله خير

ممكن مثال اخي العزيز

البرنامج مرفق

date.zip

للرفــــــــــــــــــــــــــــــــــــــــــــــــــــع

ممكن مساعده ياخت زهره