وضع شرط في تاريخ ما

[ابو عبد الرحمن اشرف]

السلام عليكم ورحمة الله وبركاته 

اخواني واساتذتي الكرام

ارجوا مساعدتي في جدول به حفل اسمه( المدة من) وحقل اخر اسمه (المدة الي)

اريد وضع شرط في حقل (المدة الي ) بحيث لا يقبل تاريخ اقل من الموجود في (المدة من )

فمثلا مدة ايجار تبدأ من 1/06/2025   تنتهي في 01/12/2025  تم تدوينها بالخطأ 01/01/2025 والبرنامج قبل ذلك بدون تنبيه للمستخدم ان التاريخ خطأ

 

 

 

 

 

[kkhalifa1960]

تقضل استاذ @ابو عبد الرحمن اشرف الشرح والكود .

                                 

Private Sub txtFrom_AfterUpdate()
If Me.txtFrom > Me.txtTo Then
MsgBox "يجب تاريخ النهاية يكون اكبر من أو يساوي تاريخ البداية", vbCritical
Undo
Exit Sub
End If
End Sub

Private Sub txtTo_AfterUpdate()
If Me.txtFrom > Me.txtTo Then
MsgBox "يجب تاريخ النهاية يكون اكبر من أو يساوي تاريخ البداية", vbCritical
Undo
Exit Sub
End If
End Sub

 

                                                

[ابو عبد الرحمن اشرف]

لا حرمني الله منك اخي الحبيب الغالي تم الامر كما ينبغي