طاهر اوفيسنا

اهلا استاذ شيفان حياك الله انا بدوري جربته على المرفق بالمشاركة 1 ومالقيت فيه مشكلة ولكن عندما جربته على مشروعي وجدت به هذا المشكل مع العلم اني نسخت الوحدات النمطية التالية : clsCommonDialogs KeybState Print Preview mod String Handling tools Utilities_mod في مشروعي

شكرا لك استاذي الكريم جعفر ... على فكرة لما طبقت الفكرة على مشروعي ظهر لي هذا الميساج

ولا محاولة من طرف أحد الأعضاء او احد الاساتذة رجاءا محاولة منكم اخواني

كيف ؟ ممكن التعديل استاذ على المرفق ؟

السلام عليكم اخواني لقد حاولت تجسيد ظهور شريط الادوات عند فتح كل تقرير ومافلحت في ذالك الرجاء التعديل على المرفق والصور توضح ذالك report_options2.rar

ولا محاولة من طرف أحد الأعضاء مالسبب ياترى ....

!!!!!!!!!!

أخي العزيز شيفان لقد نسخت الوحدات النمطية الثلاثة وهذا الكود في جدث عند النقر واستبدلت اسم "Aziz"ياسم القاعدة التي هي عندي وعند الضغط على زر تصغير لا يعمل الكود

للمساعدة

مبروك عليك أخي شفان ترقيتك الى "عضو محترف" ، تستاهل كل شيء

طريقة ممتازة اخي رجاء توضيح بالصور والكود لكي يتسنى لنا فهم ماتم عمله اخي 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