[Marwan9990]

(30-01-17, 02:32 PM)مساعدة كتب : ضع هذا الكود في آخر الروتين المسمى ShowData في الفورم frm_permissions

كود :

Dim d As Integer = DateDiff("d", Now.Date, CDate(D2.Text))
If d < 0 Then
   MsgBox("انتهى")
ElseIf d < 3 Then
   MsgBox("قارب على الانتهاء")
End If

مع التأكد من وجود تاريخ في العمود D2 لكل المستخدمين المسجلين في قاعدة البيانات

مساء الخير اخي اسف ع تاخر الرد بسبب ارتباطي ب مشاغلي ما قدرت اطبق كلامك الا الان اخي ربي يعطيك العافيه الكود شغال ميه ميه والفكره ناجحه ولكن تبقى شي واحد الكود الان فعلا ينبهني انه مستخدم شارف ع نهايه قبل ب يومين او انتهاء وقته .. 
ولكن اخي كيف اخليه يحدد لي ف مسج الي يصدره اهو يكتب الان انتهاء ولكن كيف اجعله يكتب مثلا المستخدم فلاني الي انتهاء عشان انا اعرف من الي انتهت صلاحيته ف قاعدة البايانات او انتهاآ تاريخه ؟