طاهر اوفيسنا

وعليكم السلام أخي حعفر شكرا لك اخي على المجهودات المبذولة من اجل مساعدة جميع الإخوة ربي يجعلها في ميزان حسانتك ان شاء الله فيه بعض الملاحظات واتمنى ان تصحيحها يكون بسيط دائما في اقدمية الجنوب *- إذا افترضنا ان تاريخ التعيين 2014/01/01 وان D2 هو 2015/12/31 فأقدمية الجنوب تكون 08 أشهر وليس 07 أشهر و 29 يوم حسب التعديل بالنسبة للأيام في الأقدمية اذا كانت تساوي 30 فتلقائيا تجمع مع مربع نص الأشهر وتصبح زيادة بشهر ولا تكتب 30 يوم ملاحظة1 : بالنسبة للباقي في الأيام في الأقدمية : من وجهة نظري ارى انها صعبة الحساب وخاصة لما يكون يوم بداية التعيين لا يبدأ بـ 01/YY/MM او 10/YY/MM او 20/YY/MM ملاحظة 2 : أقدمية الجنوب في حدود 06 سنوات فقط اي لا تفوق هذا العدد ابدا وبعد هذا العدد تظهر في مربع نصها ولا تحسب في الزيادة مع الخدمة الفعلية اي المجموع

ايه

تحسب 02 أشهر و 05 ايام

اتمنى ان الصورة توضح المطلوب اساتذة

اعجزتم ايها الاساتذة الكرام عن حل ماهو المطلوب حساب أقدمية الجنوب القاعدة تقول : كل 01 سنة تحسب فيها 04 اشهر كل 06 اشهر تحسب فيها 02 اشهر كل شهر تحسب فيها 10 ايام كل 10 ايام تحسب فيها 03 ايام

وعليكم السلام استاذي العزيز جعفر الصحيح : تحسب من 2013/5/1 الى غاية 2015/12/31 ..... 02 سنة , 08 أشهر , 00 يوم هذه تسمى الخدمة الفعلية للموظف تحسب من 2013/5/1 الى غاية 2015/12/31 ..... 00 سنة , 10 أشهر , 20 يوم هذه تسمى أقدمية الجنوب للموظف حسب .....01 المجموع : 03 سنة , 06 أشهر , 20 يوم كيفية استنتاج هذه الحل : خلال سنة 2013 له 08 اشهر سنة 2014 له 12 شهر وهو 01 سنة سنة 2015 له 12 شهر وهو 01 سنة القاعدة تقول : كل 01 سنة تحسب فيها 04 اشهر كل 06 اشهر تحسب فيها 02 اشهر كل شهر تحسب فيها 10 ايام كل 10 ايام تحسب فيها 03 ايام آمل اني قد وضحت ماهو كان غامضا

للرفع

للرفع

شكر اخي انظر المطلوب في الصورة

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

للرفع ...

للأسف أخي لم اجد فيها ماهو مطلوب أتمنى المساعدة من طرف الخبراء

شكر اخي ممكن الملف الذي وجدت به هذه الدوال لو سمحت

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

السلام عليكم اساتذة المطلوب المساعدة بخصوص حساب اقدمية من تاريخ التوظيف بالسنة والشهر واليوم علما ان حساب اقدمية الجنوب تحسب كل اربعة اشهر في السنة بشهر واحد فقط واذا كان تاريخ التوظيف ليس في اول الشهر تدخل فيها التكملة بحساب الأيام ملاحظة : أقدمية الجنوب في حدود 06 سنوات اي الموظف يلزمه 18 سنة عمل لكي يتحصل على 06 سنوات كاملة *- اما الخدمة الفعلية تحسب تلقائيا منذ تاريخ التوظيف والمرفق يوضح المطلوب اتمنى مد يد المساعدة وشكرا حساب اقدمية.rar

ولكن عندما افتح البرنامج على اكسس 2003 ثم اعد فتح البرنامج على اكسس 2010 تحل المشكلة

عملت ولكن بدون فائدة

فكرة رائعة شكرا لك اخي علي المصري هل توضع غير هذا السطر تغيير BoldText Eval ("MsgBox ('" & BoldText & " @ " & PlainText & "@@',0,' " & CaptionText & "')")

لا اخي رضا الله لديا نسخة واحدة وهي 2010 على الجهاز

السلام عليكم اخواني سنة ميلادية جديدة 2016 نتمنى ان تكون سنة خير علينا وعلى كافة امة الحبيب المصطفى - يارب ظهرت لي مشكلة ببرامج الاكس 2010 كما في الصورة ماسبب هذا الميساج وماحله ؟ علما اني عملت ضغط قاعدة لاحها ولكن دون نتيجة ملاحظة : عند الدخول بالبرنامج في اكسس 2003 تتم المعالجة ويرجع البرنامج شغال في اكسس 2010

بارك الله فيك استاذ حعفر

هل طلبي غير مفهوم

السلام عليكم ارجو مساعدة بخصوص فتح تقرير بواسطة مربع تحرير وسرد " detaché " بشرط : 01- يفتح بشرط detaché= موظف او منتدب من الإستعلام qry_rptD_3 02- يفتح بشرط detaché= متعاقد كامل او متعاقد جزئي أو عون نظافة من الإستعلام qry_rptD_4 Private Sub detaché_AfterUpdate() On Error GoTo Err_detaché_Click If IsNull(txtMonth) Then MsgBox "اختر الشهر" DoCmd.CancelEvent Exit Sub End If If Me.[detaché].Value = "موظف" Then Me.Report_Title = "للموظفين" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3" If Me.[detaché].Value = "منتدب" Then Me.Report_Title = "للعمال المنتدبين" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3" If Me.[detaché].Value = "متعاقد كامل" Then Me.Report_Title = "للعمال المتعاقدين بالتوقيت الكامل" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" If Me.[detaché].Value = "متعاقد جزئي" Then Me.Report_Title = "للعمال المتعاقدين بالتوقيت الجزئي" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" If Me.[detaché].Value = "عون نظافة" Then Me.Report_Title = "للعمال اعوان النظافة والتطهير" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" Exit_detaché_Click: Exit Sub Err_detaché_Click: MsgBox Err.Description Resume Exit_detaché_Click End Sub

وهو كذالك بارك الله فيك استاذ جعفر شكرا لك على المساعدة ملاحظة :تبقى الجهة الثانية في تفس الفورم تخص الإقتطاع سافتح موضوع جديد بشانها (قد ساعدتني فيه سابقا في فورم اخر ولكن عندما دمجته مع فورم التحويلات الشهرية وجدت فيه مشكلة) تقبل تحياتي