اريد تاريخ التركيب احدث من تاريخ الفاتوره

[alix24028]

السلام عليكم جميعا

 احتاج

تاريخ التركيب احدث من تاريخ الفاتوره او يساويها

 انظ المرفق ...مع خالص شكري

فاتوره.accdb

[أبوبسمله]

وعليكم السلام

اتفضل ان شاء الله يكون ما طلبت

بالتوفيق اخى

 

فاتوره.accdb

[alix24028]

جزيت خير اخي ابو بسمله 

[alix24028]

اخي ابوبسمله الكود الذي تفضلت به ممتاز ولاكن عندما تظهر رساله التحذير يلغلي السجل وابتدئ من سجل جديد 

اريد ان يبقي الفوكس علي Date_Fixed 

مع خالص شكري

هذا هو الكود 

 

If Me.Date_Fixed < Me.Date_Issue Then
MsgBox "تاريخ التركيب يجب ان يكون اكبر او يساوي تاريخ الاصدار"
Me.Undo
Me.Date_Fixed.SetFocus
End If

 

[أبوبسمله]

الفو الشكر لله ثم لاخواننا واساتذتنا

اجعله فى حدث عند الخروج

Private Sub تاريخ_التركيب_Exit(Cancel As Integer)
If Me.تاريخ_التركيب < Me.تاريخ_اصدار_الفاتوره Then
MsgBox "تاريخ التركيب يجب ان يكون اكبر من او يساوى تاريخ الفاتوره"
DoCmd.CancelEvent
End If
End Sub

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[أحمد يوسف]

أستاذ alix24028

أين الضغط على الإعجاب ؟!! 💙