تقضل استاذ @ابو عبد الرحمن اشرف الشرح والكود .
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