02-02-17, 01:18 PM
(آخر تعديل لهذه المشاركة : 02-02-17, 01:21 PM {2} بواسطة Marwan9990.)
اسعد الله اوقاتكم جميعا ..
سبق وان طرحت موضوع سابق بخصوص التنبيه قبل انتهاء التاريخ ...
والاخوان الافضال ربي يكرمهم ما قصرو معاي .. ولكن لا زال الكود الذي معي يوجد به نقص ولا ويودي الغرض المطلوب ب تماما ..
لكود لمارد التعديل عليه .. ..
الكود الحين لا يبحث في قاعدة البيانات اكسس بشكل تلقائي .. فقط لما احدد انا المستخدم يقوم ب اشعاري اذا كان تاريخه قارب على الانتهاء ام لا ..
لمطلوب .. جعل الكود يبحث بشكل تلقائي اثناء عمل البرنامج واكتشاف ااذا كان اي تاريخ قد شارف على الهنايه قبل بفتره معينه ..
اتمنى تتكون الفكره واضحه .. المشروع كامل ف المرفقات للاتطالع عليه ..
اسم المستخدم.: احمد
كلمة السر: 1
فورم صلاحيات المستخدم..
سبق وان طرحت موضوع سابق بخصوص التنبيه قبل انتهاء التاريخ ...
والاخوان الافضال ربي يكرمهم ما قصرو معاي .. ولكن لا زال الكود الذي معي يوجد به نقص ولا ويودي الغرض المطلوب ب تماما ..
لكود لمارد التعديل عليه .. ..
كود :
Dim d As Integer = DateDiff("d", Now.Date, CDate(D2.Text))
If d < 0 Then
MsgBox("انتهى")
ElseIf d < 3 Then
MsgBox("قارب على الانتهاء")
End If
الكود الحين لا يبحث في قاعدة البيانات اكسس بشكل تلقائي .. فقط لما احدد انا المستخدم يقوم ب اشعاري اذا كان تاريخه قارب على الانتهاء ام لا ..
لمطلوب .. جعل الكود يبحث بشكل تلقائي اثناء عمل البرنامج واكتشاف ااذا كان اي تاريخ قد شارف على الهنايه قبل بفتره معينه ..
اتمنى تتكون الفكره واضحه .. المشروع كامل ف المرفقات للاتطالع عليه ..
اسم المستخدم.: احمد
كلمة السر: 1
فورم صلاحيات المستخدم..