31-01-17, 06:21 PM
(30-01-17, 02:32 PM)مساعدة كتب : ضع هذا الكود في آخر الروتين المسمى ShowData في الفورم frm_permissions
مع التأكد من وجود تاريخ في العمود D2 لكل المستخدمين المسجلين في قاعدة البياناتكود :
Dim d As Integer = DateDiff("d", Now.Date, CDate(D2.Text))
If d < 0 Then
MsgBox("انتهى")
ElseIf d < 3 Then
MsgBox("قارب على الانتهاء")
End If
مساء الخير اخي اسف ع تاخر الرد بسبب ارتباطي ب مشاغلي ما قدرت اطبق كلامك الا الان اخي ربي يعطيك العافيه الكود شغال ميه ميه والفكره ناجحه ولكن تبقى شي واحد الكود الان فعلا ينبهني انه مستخدم شارف ع نهايه قبل ب يومين او انتهاء وقته ..
ولكن اخي كيف اخليه يحدد لي ف مسج الي يصدره اهو يكتب الان انتهاء ولكن كيف اجعله يكتب مثلا المستخدم فلاني الي انتهاء عشان انا اعرف من الي انتهت صلاحيته ف قاعدة البايانات او انتهاآ تاريخه ؟
