تعديل على كود تنبيه

تفضل اخي الكريم

Private Sub Form_Current()
 
If thediff <= DiscountStartDate Then
cap.Caption = " تنبيه! ( " & [thediff] & " ) " & " أشهر باقية عن نهاية إقتطاع القرض للسيد  : " & [Nom et Prénom]
ElseIf Month(Date())> DiscountStartDate Then
cap.Caption = " تنبيه! ( " & [thediff] & " ) " & " أشهر باقية عن نهاية إقتطاع القرض للسيد  : " & [Nom et Prénom]
cap.Caption = ""
End If
 
End Sub

شكرا لك اختي ام عهود

لقد وضعت الكود وكان هذه النتيجة اي لم يتغير شيئا

اخي الفاضل

ماذا يمثل حقل  thediff

هل هو تاريخ  مثل حقل تاريخ  نهاية الإقتطاع

ام انه حقل رقمي

ام ان هذا الحقل ناتج عن عملية معينة

ايضا انت ذكرت  في السؤال  تاريخ نهاية الإقتطاع  وايضا وضعت صوره لذلك  ولكنك وضعت حقل بداية الإقتطاع  DiscountStartDate في الكود

فهل هذا هو اسم حقل نهاية الإقتطاع !!!!!!!!!

بالتوفيق

اليك المثال اختي ام عهود

MM_Cridi.rar

اخي الفاضل

اين هو الحقل  [thediff]  الذي وضعته انت في الكود

لقد بحثت عنه في جميع حقول النموذج ولم اجده

هل من الممكن تخبرنا اين هو بالضبط

بالتوفيق

الحقل [thediff] 

ادخلي على تصميم النموذج frmcridi

ثم على مصدر السجل

تجديه في عبارة sql

SELECT Employee.ID, Employee.EmployeeID, Employee.[Nom et Prénom], Employee.detach, Cridi.Cridi_Date, Cridi.Cridi_ID, Cridi.Cridi_Value, Cridi.DiscountStartDate, Cridi.DiscountEndDate, Cridi.DiscountPerMonth, DateDiff("m",Date(),[DiscountEndDate]) AS thediff FROM Employee LEFT JOIN Cridi ON Employee.EmployeeID=Cridi.EmployeeID;