الإخوة الأعزاء في هذا المنتدى الرائع
السلام عليكم ورحمة الله وبركاته
لدي طلبين إثنين :
1- عندي حقل تاريخ مباشرة الموظف وحقل آخر تاريخ ترقية الموظف.. االمطلوب عند إدخال تاريخ مباشرة الموظف تلقائياً يحسب البرنامج تاريخ الترقية وذلك بإضافة 4 سنوات على تاريخ المباشرة (مثال: تاريخ المباشرة 24/08/1424 فيكون تاريخ الترقية 24/08/1428تلقائياً يحسب البرنامج)
2- كيف لي ان أجعل البرنامج يظهر رسالة قبل موعد ترقية الموظف بـ 30 يوم.
شاكر و مقدر لكم التلطف بقرأة طلباتي الثقيلة
أخوكم أبو ابراهيم
اخي العزيز
اعتقد انك قد خالفت قواعد طرح المشاركات بوضع سؤالين في نفس المشاركة
فيما يخص طلبك الاول اذا افترضنا ان التاريخ الاول اسمه date1 والتاريخ الثاني اسمه date2 سيكون الكود الخاص باضافة اربع سنوات كما يلي
DateAdd("yy",4,[date1])اما الكود الخاص باظهار الرسالة هو
IF DateAdd("d",-30,[date2])=Date() THEN
MsgBox"باقي ثلاثون يومآ"
END IFويمكنك التعديل كما تريد ... ارجو المعذرة فانا اكتب الرد على عجل لذا ارجو منك تطبيق الاوامر في المكان الذي تريده والافادة عن مدى نجاحها ... مع تحياتي,,,
أخي في الله منتصر الأنتسي
شكراً لك على هذين الحلين ولقد أستفدت منهما كثيراً
اما بالنسبة لمخالفة قواعد المشاركات فـــــ غلطنا ومنك السماح..
اخوك أبو ابراهيم...
هذا الموضوع مغلق.