ألف شكر أخي الفاضل " أحمد عبد العليم " على المساعدة و تقديم يد العون
بارك الله فيك و لك و جزاك خير الجزاء
فقط ربّما لسوء الشّرح منّي لم تفهم القصد كما ينبغي ..كنت أقصد أنّ الملف يعمل بشكل جيّد فقط كنت أريد إضافة أنّه لمّا يقترب الموعد بثلاثة أيّام أو أقل يصبح اللون برتقالي بدلاً من اللون الأخضر
مثلاً في هذه الحالة " عبد العزيز البسكري 5 " بقي على موعده يوم واحد فقط إذن يصبح اللون برتقالي
04-01-17, 08:16 PM (آخر تعديل لهذه المشاركة : 04-01-17, 08:17 PM {2} بواسطة عبدالله الصافي.)
لقد عدلته هكذا واشتغل
If t > a And r <= 3 Then
MSFlexGrid1.TextMatrix(i, 4) = " ÅäÊÈå " & r & " íæã "
MSFlexGrid1.Col = 4
MSFlexGrid1.CellBackColor = &H80FF&
End If
اخي الكريم
لتعديل انقلاب التاريخ بالجدول قمت بتغيير خاصية الحقل من قاعدة البينات من تاريخ الي نص
ولكن للامانة لا اعلم هل هناك ضرر هكذا بمشروعك ام لا مع اني اتعامل هكذا مع مشاريعي
بالنسبة للتنبيهات
ضع هذا الصب في اخر اي اجراء تريده
MSHFlexGrid1_Click
مثل اجراء الحفظ او تحميل الفورم
ملوحظة اخيرة
ليس هناك داعي لان يدخل المستخدم التاريخ الحالي طالما انك تستخدم الدالة now في ايجاد الفرق بين التاريخين