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