[elgokr]

(12-08-18, 08:07 PM)khalilfox كتب : ممكن تكتبلي كود استعلام فأنا مبدأ والله احاول فهم على قدر المستطاع ....وشكرا

فى البداية الشكر لله
بخصوص الكود الاستعلام هتستخدم نفس ما هو لديك فى الزر
لكن بدلاً ان تجعل هذا اسطر

كود :

ADay = Val(TextBox1.Text)

يخد قيمة عدد الايام من TextBox1
كل ما عليك ان تجعله قيمة ثابتة وليكن مثلاً 30 اى 30 يوم لتجعل السطر بهذا الشكل

كود :

ADay = 30

وبخصوص الـ Timer  ستجعل الوقت كاتالى

3600000 اي ما يعادل ساعة

ولكن بما ان الفترة عن 30 يوم فلا داعى ان تكون مدة قليلة فيفضل ان تجعلها بهذا الشكل

43200000  اى ما يعادل 12 ساعة 

حتى لا يتم عرض رسالة التنبيه للمستخدم 

وقت استخدامه للبرنامج

وقد تصل الى الازعاج

كما اننى حتى الان افضل الطريقة اليدوية كما سبق

حتى يجبر الموظف المستخدم للبرنامج مراجعة الصلاحيات والتاكد من ذلك بنفسه

لان بمجرد ظهور الرسالة وتنبيه المستخدم قد يتجنبها ويقول بالنهاية

ان الرسالة لم تظهر ويرمي فكرة نسيانه على ان البرنامج لم ينبه المستخدم بذلك

تحياتى لك

وتمنياتى لك التوفيق