nacer_alger

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

جمعته مع رصيد الصابق اي reliquat +vac_bal نجحت العملية مثلا 30 يومن + 10 =40 لكن في الجدول مازال ياخذ سوى 30 يوما كرصيد اي اذا تجاوزالرصيد 30 يوما النتائج تظهر بساالب

سلام عليكم اخي رضوان قمت بعمل حقل في جدوال الموظفين سميه reliquat اي (رصيد قديم ) مع اي حقل اجمعه في استعلام مع حقل prev_bal Expr2: [Prev_Bal]+[Reliquat] ام اجمعه مع هذه الدالة في النموذج =vac_bal([code_employé])

لا اخي ردوان لا اريد ان تقفل الموضوع اجعله في استعلام لا مشكلة لدي انت انشئت لي كود يحطي 30يوما كل سنة اريد ان اضيف رصيد قديم الى موظف بانشاء حقل مشتقل و اضع فيه الرصيد القديم و يحتسب معه اي 30 يوما كل شهر + حقل الدي اضيف فيه الرصيد وليس شرط ان يكون في الجدول ادا اردت اجعله مستقل وانا ممتن اليك كثير

سلام اخي رضوان اضفت حقل سميته reliquat هذا الحقل يمثل الرصيد القديم لموظف غرضي هو جمع الرصيد القديم مع حقل prev_bal مع 30 يوما هناك موظفين لهم رصيد قديم اي يجب ان ادخله في حقل لكي يحسب مع 30 يوما التي تمنح سنويا بمعنى: اي اجازة السنوية 30 يومprev_bal+ reliquat GESTION2015.rar

اخي رضوان لقد اضفت حقل في النموذج و الغرض منه اريد ان ادخل فيه رصيد القديم لموظف ويحتسب مع ال30 يوما لم اعرف كيف اعدل في الكود الذي اعطيتني اياه لكي يحسب لي هذا الحقل

اريد ان اضيف حقل جديد مثلا اسمه reliquat وعندما ادخل قيمة في هدا الحقل تحسب مع حقلPrev_Bal ارجوك ساعدني هذا تابع لي موضوع السابق الذي طرحته

اريد شرح لهذا الكوك لكي اعرف اين استطبع ان اضيف حقل جديد ليتم حسابه مع 30 يوما لعطلة سنوية اي اريد اضافة حقل فيه رصيد قديم لكي يجمع مع 30 يوما المستحقة لكل موظف في سنة كاجازة سنوية 01-وحدة النمطية Function Vac_Due(emp As Long, hdate As Date) As Long Dim Vac_Used As Integer Dim Vac_Entitle As Integer Dim d As Integer Dim hd As Date Vac_Used = Nz(DSum("Vac_Per", "Vac_Trans", "[code_employé] = " & emp & " and [Date_départ] < " & Chr(35) & hdate & Chr(35)), 0) hd = DLookup("hiredate", "[Employé en arabe]", "[Code_employé] = " & emp) Vac_Entitle = Nz((Year(hdate) - Year(hd)) * 30, 0) Vac_Due = Vac_Entitle - Vac_Used End Function 03- استعلام SELECT congé.code_employé, congé.Date_départ, congé.Date_retour, [Date_retour]-[Date_départ]+1 AS Vac_Per, 30 AS Vac_Ent, vac_due([code_employé],[Date_départ]) AS Prev_Bal, [prev_bal]-[vac_per] AS Cur_Bal FROM congé ORDER BY congé.code_employé, congé.Date_départ;

لقد تم مساعدتي من طرف اخ كريمو في عطلة سنوية اريد ان اضيف حقل جديد مثلا اسمه reliqut وعندما ادخل قيمة في هدا الحقل تحسب مع حقلPrev_Bal تعديل في الكود كمجموع هنا رابط مشاركي في منتدى http://www.officena.net/ib/index.php?showtopic=58178 ارجو منكم المساعدة وشكرا

اريد اظافة حقل موظف جدبد ليحسب رصيده المتبقي مع حقل رصيد اجازة سنوية

انظر الى محاولتي اخي رضوان هذا ما ستطعت عمله حساب اجازاة سنوية بطريقة 3.rar

سلام اخي رضوان تم توصل الى حل جيد بمساعدتك و تشجيعي على تعلم شكرا لك قمت بجعل حقل Vac_Per دون حساب اي ادخال يدوي ثم قمت بانشاء في استعلام حقل Date_retour وادخلت الحساب التالي date_retour:[Vac_Per]+[date_départ]-1 فاصبح عملية الحسابية رائعة جدا هناك مشكل صغير وهو اذ كان تاريخ التوظيف مثلا في في نفس السنة الحساب صحيح لكن يظهر بعلامة بسالب (-) كيف اتخلص من هذه العلامة و الرصيد المتبقي من اجازة السنوية مفروض يظهر 0 فقمت بانشاء حقليم واحد اسمه عطلة موظف جديد و كتبقي من عطلة موظف جديد وادخال هنا يكون يدوي شكرا كثير اخي رضوان فلولاك ماتعلمت وماتوصلت الى هذاالعمل الرائع حساب اجازاة سنوية بطريقة ثانية1.rar

اخي رضوان اريد ان تعكس لي عملية حسابة في كود الذي اعطيتني اياه بمعنى اريد ان اغير في حقل Vac_Per اي يكون ادخال عطلة سنوية بشكل يدوي وعند ادخال ايام العطلة المطلوبة بطبيعة الحال يقوم يختيار تاريخ بداية العطلة فيعطيه تاريخ نهايتها استناد لعدد ايام العطلة مطلوبة في حقل Vac_Per اتوماتكية مع حفاظ على طريقة حساب الاول التي عملته لي اخي رضوان فهي جيدة في نتيجة و صحيحة التغييرات تكون : 1- جعل حقل Vac_Per ادخال يدوي 2-بمجرد ادخال في حقل Vac_Per عدد ايام عطلة و اختيار تاريخ بدايتها يعطيك تاريخ نهايتها اتوماتكيا ارجو ان اكون موفق في الشرح طلبي اخي رضوان واقول لك بلهجة الجزائرية تستهل كل خير ياخو

سوف اجريب ان اضيف حقل ادخال يدوي ويحتسب مع الكود الذي اعطيتني اياه ساحاول

اخي رضوان انت انسان طيب وحريس وانا ممتن لك نعم اكمل مثل اقراح اخير اي يكون ادخال عدد ايام يدوي اما الحقول اخرى يكون الحساب اتوماتكيا مثل تاريخ بداية اجازة ونهايتها والرصيد الباقي في حوزة الموظف

اخي رضوان لكي لا اتعبك واعقد امر الكود الذي اعطيتني ايها في بداية يلبي طلبي لكن زد على ذالك اريد ان يحسب عطلة الموظفين الجدد الحساب كا تالي كل شهر بيومين ونصف في رصيده ويحسب هذا الرصيد من تاريخ بداية توظيفه الى غاية تاريخ طلب اجازة السنوية مثلا وظفا بتاريخ 01/01/2015 وعملا الى غاية 01/06/2015 هنا له 15يوما وعندما يعمل لمدة سنة يكون له الحق في 30 يوما كسائر العمال اي هذه الخصوصية في موظفين الجدد فقط اخي رظوان لكي لا اعقد امر مجرد افتراح اخي رضوان اضن انا اجعل خانة عطلة سنوية يكون ادخال يدوي وبمجرد ادخال عدد ايام واختيار تاريخ بدية الاجازة يعطيه تاريح نهاية الاجازة مع العملية الحسابية التى اعطيتنى اياها في اول اي المنبقي من عطلة حالية ومتبقي من رصيد يكون اتوماتكيا

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

قمت بجلب بينات موظف من قاعدة دلفي والصقتها في جدول اكسس وعند عملي لعملية بحث عن اسم موظف لم يظهر لي فكتشفت ان هناك فراغ في بداية اسم الموظف لذالك لم يظهرو عند حذفت هذا الفراغ ظهر اسم الموظف في البحث مثلا لاحظ اسمين ناصر بدون فراغ في بداية الكلمة ناصر هذا فيه فراغ في بداية الكلمة انا قمت بازالة الفراغ لكل اسماء واحد بواحدة يدوية لذالك اسال هل هناك في اكسس خاصية او دالة للأزالة الفراغات في بدياية الكلمة مرة واحدة

- الموظف في الجزائر له الحق في اجازة سنوية كاملة 30 يومااذا أتم سنة كاملة خدمة اي يومين و نصف لكل شهر خدمة 2.5يوم*12شهر=30 يوما - اما اذا كن موظف جديد فيحسب له في كل شهر خدمة يومين و نصف في رصيده مثلا اذا عمل لمدة 6 اشهر فله الحق في 15يوما و موسم افتتاح اجازات يكون في شهر جوان من السنة

نعم انت محق اخي رضوان لقد اتعبتك معي بقيا شيئين اخي رضوان عند تجربتي للبرنامج و هما اذا كانت السنة الجارية مثلا 2015 وموظف جديد اراد ان ياخذ اجازته السنوية في نفس السنة التي توظف فيه 2015ا المفروض ان يكون لديه في كل شهرمنقضي من العمل يتحصل على يومين و نصف في رصيده اي 2.5 *12 شهرا=30 يوما واذا عمل لمدة12 عشر شهر اي سنة كاملة فله الحق في 30 يوما و سامحني اخي رضوان في عدم توفيقي في شرح طلبي بطريقة دقيقة وهذا راجع لكثرة طلبي لمساعدة في عطلة سنوية في منتديات اخرى وكل مرة لم اتحصل على رد خاصة اذا شرحتها بطريقة دقيقة فحسبت ان امر كانه مستحيل ساعدني و لك كل شكر استاذ رضوان

اخي رضوان لقد وجدت خطئ و هو كتالي نفترض التحق الموظف جديد في نفس السنة مثلا 10/01/2015 وطلب عطلته السنوية بعد افتتاح موسم العطل الذي يبدء في شهر السادس اي جوان ويطلب عطلته هنا البرنامج لا يعطيه 30 يوما بل ناقص 30 يوما اي مسال فهذا يعتبر خطئ

حذف الفراغ قبل محتوى الخلية

ممكن كود لتحديث النموذج الفرعي اتوماتكيا و بارك الله فيك اخي رضوان لقد فرجت عليا كربة ادعو الله ان يفرج لك كربة يوم القيامة

سلام عليكم اخي رضوان البرنامج يعمل بدون اخطاء تم حلها بمساعدتك طلب ثاني اريد ان يظهر الرصيد المتبقي في خانة مستقلة انظر الصورة ظهور اخر قيمة.rar

اختفت رسالة خطئ اولى لكن ظهر رسالة خطا اخرى تجبرك عل التعديل في كود معلمة بلون اصفر (hd = DLookup("hiredate", "[Employé en arabe]", "[Code_employé] = " & emp هذه التسميات التي في وحدة النمطية غير موجودة في جداول مجرد سؤال فقط Vac_Due = Vac_Entitle - Vac_Used