طاهر اوفيسنا

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

مساعدة من فضلكم

التمس منكم المساعدة

للمساعدة اساتدة

للمساعدة اساتدة

اوك مستني استاذ ابوخليل فصل الموضوع بعنوان مستقل ومساعدة باقي الاخوة اذا امكن

وهو كذالك استاذي الكريم جعفر ...

شكرا استاذي الكريم جعفر التصحيح انقص شهرا مثلا بداية الاقتطاع 2017/01/01 النهاية 2017/08/31 المدة 8 اشهر .................. الصحيح الكود حاليا يعمل الى غاية 2017/07/31 .................. الخطأ

للرفع

السلام عليكم إخواني ممكن مساعدة بخصوص نهاية فترة تسديد القرض يكون اخر الشهر وليس في اول الشهر مثلا عامل تحصل على قرض مالي بمبلغ 40.000.00 دج مدة الإقتطاع 08 اشهر بداية الإقتطاع من 2017/01/01 الى غاية 2017/08/01 المطلوب يكون : 2017/01/01 الى غاية 2017/08/31 Private Sub UpdateEndData() Dim Dcode As Integer 'since we are using the calendar, we will get the day, month, and year, 'although we only need the month and the year, and that is what this fields Format shows, mmmm\-yyyy 'but for easyness for the search later, we will assign the day always as 1 If Len(Me.AwardMonth & "") <> 0 Then Me.AwardMonth = DateSerial(Year(Me.AwardMonth), Month(Me.AwardMonth), 1) End If Me.DiscountStartDate = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate), 1) Dcode = Switch([Cridi_ID] = 1, 10, [Cridi_ID] = 2, 10, [Cridi_ID] = 3, 10, [Cridi_ID] = 4, 8, [Cridi_ID] = 5, 2) DiscountEndDate = DateAdd("m", Dcode, [DiscountStartDate] - 1) Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate), 1) DiscountPerMonth = [Cridi_Value] / Dcode 'add the loan Records to tbl_Loans Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans") 'rst.MoveLast: rst.MoveFirst For I = 0 To Me.CmdCridi.Column(4) - 1 rst.AddNew rst!EmployeeID = Me.EmployeeID rst!Loan_ID = Me.ID rst!Loan_AwardMonth = Me.AwardMonth rst!Payment_Month = DateAdd("m", I, Me.DiscountStartDate) 'add the months, or use the next line 'rst!Payment_Month = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate) + I, 1) rst!Loan_Cridi = Me.txtDiscountPerMonth 'rst!Loan_Elec= 'to be used in Elec loan Form 'rst!Loan_Other= 'to be used in Other loan Form 'rst!Payment_Made = 'to be used each time a pyment is made rst!Loan_Type = "Cridi" rst!Remarks = Me.CmdCridi.Column(1) rst.Update Next I rst.Close: Set rst = Nothing txtDiscountPerMonth.Requery txtDiscountEndDate.Requery 'Auto_ID, Auto_Date, EmployeeID, Loan_ID, Loan_AwardMonth, Payment_Month, Loan_Cridi, Loan_Elec, Loan_Other, Payment_Amount, Payment_Made, Remarks 'EmployeeID 'Loan_ID 'Loan_AwardMonth 'Payment_Month' 'Loan_Cridi 'Loan_Elec 'Loan_Other 'Payment_Amount 'Payment_Made 'Remarks End Sub

شكرا استاذي على الالتفاتة نعم المشكلة في تقسيم 50 يوم على 12 شهر لقد سئلتني : ما هي المعادلة التي ستجريها لاستخراج استحقاق 4 اشهر من الـ 50 يوم ؟ اذا قسمنا 50 يوم على 4 اشهر فحتما الناتج يكون 12.5 ........ 01 وحسب المثال الذي تفضلت به : كريمو بدأ عمله في 1/1/2006 وانتهى في 30/4/2010 فتكون مدة عمله = تاريخ بداية العمل - نهاية تاريخ العمل = ثلاث سنوات و 4 اشهر الاستحقاق = 3 + ( 12/4 ) * 50 اي استحقاق ثلاث سنوات = 150 + استحقاق اربعة اشهر ........ 02 أي : 02 + 01 تساوي 150 + 3 + 12.5 = 165.5 ومن نجد نجد ان مدة العطلة بالفاصلة وهذا غير مقبول من وجهة نظري الطريقة التي تفضلت بها : اما حسب الطريقة التي انت تريد تطبيقها فيمكنك تطبيقها مع الاخذ بالمعادلة فيمكنك حساب المدة على السنين عن كل سنة 50 يوما فهذه الطريقة كانت سابقا في اول مشاركة لهذا الموضوع سابقا ولكن وجدنا صعوبة في الاستثناءات كما في الصورة اما الملاحظة الأخيرة فمن المعقول ان تمنح الاجازة على الاقل في وسط السنة

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

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

السلام عليكم استاذي العزيز ابوخليل لقد تم دخول سنة جديدة على برنامج الإجازات واكتشفت انه مازال يزيد لي يوم +1 وفيه من تم اضافة يومين +2 لهم وفيهم من نقص له -1 مافهمت المشكلة وين تكمل السؤال : هل من الممكن جعل زيادة مدة العطلة السنوية الخاصة بالجنوب "50 يوم" تلقائية لكل موظف تكون في شهر 7 من كل سنة بشرط حديثي التوظيف تحسب لهم كل شهر مضى ب 4 ايام

السلام عليكم إخواني الكرام ممكن مساعدة بخصوص تصفية حسب وجوب عدة صفحات في نموذج واحد مثلا : - الصفحة 01 = تصفية الموظفين - الصفحة 02 = تصفية المتعاقدين - الصفحة 03 = تصفية المنتدبين - الصفحة 04 = تصفية المتقاعدين وهكذا ملاحظة : كل صفحة ومعلوماتها كاملة 2017.rar

استاذي العزيز نرجع لهذا الفارق قلت يمكن قسمة فارق الأيام على 7.3 هل يمكن الإستغناء على الدالة السابق ejmaleEjazat: Int(((Date()-[hiredate])/30)*4.16) واستبداله بهذا ejmaleEjazat: Int(((#20/07/17#-#20/07/15#)/7.3)) الأول تاريخ اليوم - تاريخ التوطيف على 30 مضروب في 4.16 والثاني فارق بين تاريخين مقسوم على 7.3 اي لا يصلح الي إحمالي الأجازات

ساأرى ذالك بعد نهاية إجازتي بعد عيد الإضحي المبارك عموما شكرا على التوضيح

نعم استاذ

شكرا لك استاذ والسنوات القادمة يكون العمل دائما يدويا ادخال الفارق

اساتذتي الكرام تحية طيبة بناء على المواضيع التي تحدثت عن الاجازات وخاصة هذا الموضوع لم اتمكن من ضبط الاستحقاق بالصورة الصحيحة آمل مساعدتي جزاكم الله خيرا ejmaleEjazat: Int(((Date()-[hiredate])/30)*4.16) كلما دخلت سنة جديدة تزيد مدة الإجازة يوم نعرف ان قسمة 50/12 تساوي 4.16667 هل من كود اخر يعطي 50 يوم كل سنة

فكرة ممتازة ولكن ينقصها شيء بالنسبة لإجازة السنة القادمة ومابعدها اين يتم حسابها فهمت تضاف بدخول السنة الجديدة في الإستحقاق

خذ راحتك استاذي

صح استاذي العزيز "" نناقش هذا لاحقا وفي موضوع جديد بحول الله" بالنسبة للكود الم تلاحظ انه ينقصه شيئا للتصفية الصحيحة في المشاركة قبل هذه Private Sub Etar_AfterUpdate() If Etar = 2 Then Me.frmTB_Ath6rary.SourceObject = "frmTB_Ath6rary2" Else Me.frmTB_Ath6rary.SourceObject = "frmTB_Ath6rary" End If Me.Requery End Sub

بالنسبة للتصفية استاذي العزيز عندما اكون في سجل رقم 3 مثلا "عند الإجازة المحسوبة" ولكن عندما أخصص الإجازة الغير محسوبة لنفس السجل يرجع الى اول سجل ماالخلل في هذا الحدث Private Sub Etar_AfterUpdate() If Etar = 2 Then Me.frmTB_Ath6rary.SourceObject = "frmTB_Ath6rary2" Else Me.frmTB_Ath6rary.SourceObject = "frmTB_Ath6rary" End If Me.Requery End Sub