طاهر اوفيسنا

لللرفع

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

شكرا لك استاذ محمد عصامي هل ممكن ينطبق هذا الترقيم المتجدد كل سنة على التقرير

هل تمت معاينة الفيديو اخي جعفر ام يوجد خلال بالتنزيل

أستاذي العزيز جعفر هاهو فيديو يبين تفكيك الكود Remaining من طرف الأستاذ حسام الشامي أرجو ان يكون واضحا https://dub118.afx.ms/att/GetAttachment.aspx?file=31219695-17ca-4739-8b71-e02d3deddf4a.zip&ct=YXBwbGljYXRpb24vemlw&name=T3V0bG9vay5jb20uemlw&inline=0&rfc=0&empty=False&cid=6311f496cf65fbc2&shared=1&biciPrevious=34c02497-d779-46ee-b000-9c0ffb23e1be_01e57988e53_10420&hm__login=taherlaguili&hm__domain=hotmail.fr&ip=10.111.4.8&d=d3193&mf=0&hm__ts=Wed%2c%2015%20Apr%202015%2014%3a59%3a08%20GMT&st=taherlaguili%25hotmail.fr%407&hm__ha=01_7131bb812877b511f17228d1299d0f95c1f059e0dd0225421e9db50b1741c9bb&oneredir=1

قيمة الحقل Remaining (الباقي المدان) من الجدولين Cridi و ElectroMeng وحقولهما : بالنسبة لـ جدول Cridi حقوله Cridi_Value (مبلغ القرض) و DiscountStartDate (تاريخ اول إقتطاع) و DiscountEndDate (تاريخ نهاية الإقتطاع) و DiscountPerMonth (الإقتطاع الشهري) بالنسبة لـ جدول ElectroMeng حقوله Elec_Value (المبلغ الإجمالي) و t1 (تاريخ اول إقتطاع) و n1 (تاريخ نهاية الإقتطاع) و DiscountPerMonth (الإقتطاع الشهري) وسؤال آخر ، هل هناك جدول تسجل فيه الدفوعات؟ لأن هذا المفروض ان يسهل العملية كلها لايوجد جدول تسجل فيه الدفوعات وان رايت انه ضروري اوك نعمله واي استفسار اخر انا موجود بالتوفيق استاذي

Remaining هي في الإستعلام وليست من جهة أخرى Remaining: (Nz((SELECT SUM(nz((dateDiff( 'm' , IIF (([Forms]![FrmDiscountReport]![txtMonth] ) < DiscountStartDate, DiscountStartDate , ([Forms]![FrmDiscountReport]![txtMonth] )) ,CDATE(format(format(DiscountEndDate , 'yyyyMM') & Day(DateSerial(Year(DiscountEndDate), Month(DiscountEndDate) + 1, 0)) , '####/##/##')))) * DiscountPerMonth , 0)) FROM Cridi WHERE Cridi.EmployeeID = Employee.EmployeeID AND ([Forms]![FrmDiscountReport]![txtMonth] ) < DiscountEndDate AND DiscountStartDate IS NOT NULL AND DiscountEndDate IS NOT NULL);0)+Nz((SELECT SUM(nz((dateDiff( 'm' , IIF (([Forms]![FrmDiscountReport]![txtMonth] ) < t1, t1 , ([Forms]![FrmDiscountReport]![txtMonth] )) , CDATE(format(format(n1 , 'yyyyMM') & Day(DateSerial(Year(n1), Month(n1) + 1, 0)) , '####/##/##'))) ) * DiscountPerMonth , 0) ) FROM ElectroMeng WHERE ElectroMeng.EmployeeID = Employee.EmployeeID AND ([Forms]![FrmDiscountReport]![txtMonth]) < n1 AND t1 IS NOT NULL AND n1 IS NOT NULL);0))

اساتذتي ممكن اي حل أخر شبيه ويوصل لنفس الفكرة والإستغناء عن هذا كله واني على يقين ان الفكرة بسيطة وانكم قادرون على الحل البديل تقبل تحياتي

السلام عليكم إخواني الأساتذة ركزو معايا المشكلة في التقرير rptDiscountDetail كما في الصورة

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

شكر لك استاذ هاهو المرفق مبسط ومرفق بالصورة مع العلم اني تركت موظف واحد فقط وهو كريمو1 لديه قرض مالي بقيمة 20.000.00 خلال شهر فيفري 2015 - اول خصم 2015/03/01 بمبلغ 2000.00 الباقي 18.000.00 - 2015/04/01 معفى من الخصم الباقي كما هو في شهر مارس - ثاني خصم 2015/05/01 بمبلغ 2000.00 الباقي 16.000.00 - اخر خصم 2016/01/01 بمبلغ 2000.00 الباقي 0.00 آمل ان اجد مساعدة عن قريب FrmDiscountReport.rar

للرفع

جمعة مباركة استاذ جعفر للرفع

شكر لك أخي جعفر لقد تمعنت بالمرفق ولقيت فيه هذه الملاحظات إذا ماوجت حل إرجع للمشاركة رقم 19 ربما التعديل يكون فيها اسهل

أساتذتي لقد بسطت البرنامج وتم حذف النموذج المعقد Frm_kassem_months اولا : الأن مازالت الزيادة الا في الشهر الأول من الإقتطاع فقط في التقرير rptDiscountDetail نلاحظ حسب الصورة للعلم أن Remaining هي باقي الإقتطاعات Remaining: (Nz((SELECT SUM(nz((dateDiff( 'm' , IIF (([Forms]![FrmDiscountReport]![txtMonth] ) < DiscountStartDate, DiscountStartDate , ([Forms]![FrmDiscountReport]![txtMonth] )) FrmDiscountReport.rar

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

على فكرة وضعت الكود في الفورم Frm_kassem_months عند حدث في الحالي ولكن بقيت دار لقمان على حالها مشكلة الزيادة بقيت كما في الصورة

اخي جعفر بارك الله فيك صراحة مافهمت شيئا مما ذكر اعلاه وهذا الكود اين يوضع 'lets check if this Employee have a void dates vTotal_Amounts = Nz(DSum("[DiscountPerMonth]", "tbl_Avoid_Dates", "[Name_ID]= " & Me.txtEmployeeID), 0) vTotal_Months = Nz(DCount("*", "tbl_Avoid_Dates", "[Name_ID]= " & Me.txtEmployeeID), 0) txtToalModan = SSS_Cridi + SSS_ElectroMeng + SSS_OtherDiscount - vTotal_Amounts txtBagi = Nz([txtToalModan], 0) - Nz(txtToalMonthsDiscount, 0) والسؤال : هل مستحيل ان نصل الى حل ام كيف ؟

تفضل ملفك بعد التعديل combobox .rar

السلام عليكم اخي محمد طاهر الجدول ElectroMeng هو خاص بالأدوات الكهرومنزلية وتنطبق عنه كما في القروض له مبلغ مالي وبه قسط شهري ويقتطع حسب تاريخ البداية والنهاية لمدة 10 اشهر اما بخصوص الأزرار التي لاتعمل هاهي نسخة من البرنامج على أكسس 2003 على فكرة استاي اليست المشكلة في النموذج الفرعي FrmCridi_sub وخاصة عند الحدث في مربع النص DiscountStartDate Private Sub UpdateEndData() Dim Dcode As Integer 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) DiscountPerMonth = [Cridi_Value] / Dcode txtDiscountPerMonth.Requery txtDiscountEndDate.Requery End Sub Private Sub DiscountStartDate_AfterUpdate() Call UpdateEndData End Sub ma.2015.rar

شكرا لك استادي الكريم طارق محمود وهو كذالك

لا أستاذ من غير ازالة الكود يعمل البرنامج عادي اذا دخلنا على الفورم FrmCridi وخصصنا مربع التحرير والسرد في القرض وعملنا له قرض 2 مثلا يظهر Msbox يطالبك بتسجيل تاريخ القرض اعمل لا ترى في الملاحظات نزعت كلمة >> تأخير الدفع 2 اشهر وبقيت قرض 2 لوحدها من هنا يشتغل البرنامج عادي لا داعي الى المسح في الجدول الذي اشرت اليه للتاكيد ادخل على الفورم Frm_kassem_months ولاحظ النتيجة

اهلا وسهلا استاذي الكريم البرنامج هو من اعدادي ولكن تمت تعديلات من طرف الأستاذ حسام الشامي وخاصة في هذا الفورم Frm_Kassem_months ولكن استاذي العزيز البرنامج إذا حذفت منه التعديلات التي اشرت لها في البداية يعمل البرنامج عادي وبصفة منتظمة ويتم الإقتطاع بإنتظام من البداية الى النهاية وبإمكانك تجربة ذالك من الفورم FrmCridi الى الفورم FrmDiscountReport ثم على التقارير rptDiscount و rptDiscountDetail للعلم ان هذا النموذج Frm_Kassem_months هو بمثابة للتوضيح ليس الا الشيء المهم هو في نموذج الإقتطاعات الشهرية FrmDiscountReport المستمد من الإستعلامات من qry_rptD_1 الى qry_rptD_6 ومن qry_rptDD_1 الى qry_rptDD_4 و qryDiscountReport و qryDiscountReport_ALL و qryDiscountReport_Contract و qryDiscountReport_OLD

وعليكم السلام أستاذي الكريم محمد طاهر اتشرف بوضع بصمات أناملك على موضوعي وشكرا على تعديلك للموضوع الذي لربما لم يفهمه من يريد مساعدتي في الحقيقة كنت قد نوهت في بداية الموضوع الى المساعدة ولا احد من الأستاذة قام بالرد سوى بالمساعدة او بالنصيحة ولكنك الوحيد الذي تفضلت بذالك فشكرا لك ودمت ذخرا وسندا لإخوانك اما بخصوص مشكلة البرنامج وهي : قبل إضافة الحدث في frm_Avoid_Dates كان البرنامج يعمل عاديا وبصفته منتظمة ولكن عند أدخال هذا التعديل عليه اصبح يوقف الإقتطاع الشهري الذي هو المطلوب ولكن يزيد في مبلغ القرض هذا غير مطلوب مثلا : كريمو 01 لديه قرض مالي خلال شهر يناير 2015 بمبلغ 20.000.00 دج اول إقتطاع له شهر فيفري 2015 لمدة 10 أشهر اي الى غاية نوفمبر 2015 هذا الأخير قام في شهر أفريل مثلا بطلب توقيف إقتطاع القرض لمدة شهرين ولتكن أفريل وماي 2015 يعني الإقتطاع تم خلال شهر فيفري ومارس وبقيت له 08 أشهر بداية الإقتطاع الثاني من شهر جوان 2015 الى غاية شهر جانفي 2016 هذا يعني ان شهر ديسمبر2015 و جانفي 2016 أشهر زيادة تعويضات عن شهري أفريل وماي 2015 المشكلة هنا هي زيادة مبلغ قيمة توقف الإقتطاع الى مبلغ القرض الرسمي اي زيادة مبلغ 4.000.00 الى مبلغ القرض وكلما يتم التوقيف اكثر تتم الزيادة أكثر في مبلغ القرض فمثالنا هذا : مبلغ القرض 20.000.00 والتوقف شهرين اصبح المبلغ 24.000.00 وهذا هو الخطأ الذي طلبت معالجته آمل اني قد وفقت ثانيا في طرح مشكلتي ولكم واسع النظر

السلام عليكم اخواني إدارة منتدى اوفيسنا رجاءا حذف كلمتي Bookmark and Share من نص الموضوع على الرابط التالي http://www.officena.net/ib/index.php?showtopic=60200 ليصبح الموضوع ماسبب زيادة مبلغ إيقاف الخصم الشهري الى مبلغ القرض