طاهر اوفيسنا

وعليكم السلام الخطوات المتبعة هي : 01- الدخول على فورم FrmCridi ثم نختار اسم الموظف مثلا رقم 4 "جعفر" ثم نختار من نوع القرض كما في الصورة 01 بعد إختيار قيمة القرض مثلا قرض 3 يكتب تلقائيا في قيمة القرض 30.000.00 ثم يظهر Msbox به هل تريد تثبيت تاريخ القرض لم نضغط على نعم يظهر تاريخ اليوم في شهر القرض كما في الصورة 02 ثم بعد ذالك نختار تاريخ بداية الخصم مثلا 2015/04/01 نرى تاريخ نهاية الخصم يكتت تلقائيا بناءا على كود يقسم مبلغ القرض على عدد الأشهر تاريخ النهاية2015/01/31 كما في الصورة 03 هنا الموظف جعفر إستفاد بقرض مالي قيمته 30.000.00 يحول الى حسابه عن طريق الفورم FrmTransfer وهو غير موجود بالمرفقات ..... هذا غير مهم المهم ان تاريخ بداية الإقتطاعات تبدأ من تاريخ افريل 2015 الى غاية جانفي 2016 كما في الصورة 3 (هذه إقتطاعات شهرية ليس بها أي مشكل ) طبعا الدخول على الفورم FrmDiscountReport هذا خاص بالإقتطاعات الشهرية كما في الصورة 4 02- هذا الموظف جعفر طلب توقيف الإقتطاع لمدة شهرين وهما ماي و جوان 2015 ندخل على نفس الفورم FrmCridi ونختار رقم 04 وهو نفس الموظف "جعفر" كما في الصورة 06 نتبع الترقيم من 01 الى 06 نلاحظ ان 05 تغير من 2015/01/31 الى 2015/03/31 اي زيادة شهرين (وهما شهرين التوقيف) ...... الكل تمام 02- وهنا المشكلة ندخل على الفورم FrmDiscountReport من جديد خلال شهر افريل نلاحظ انه أقتطع له مبلغ 3.000.00 وبقي له 33.000.00 كما في الصورة 07 لاحظ في هذه الصورة زيادة مبلغ 6.000.00 للباقي ......... هذه المشكلة 03- فورم FrmElec هو مثل القروض له مبلغ مالي ينقص منه مبلغ المساهمة ثم يضرب في العدد الموجود في النسبة المئوية ويقسم على 100 نجد المجموع الكلي هو Elec_Value يقسم على 10 ليظهر مبلغ الإقتطاع الشهري DiscountPerMonth وله ايضا تاريخ بداية اقتطاع t1 ونهاية اقتطاع n1 وتوقيف إقتطاع 04- اما فورم FrmMocharaka هذا هو مبلغ مشاركة بقيمة 2.000.00 يقتطع لكل عامل تلقائيا خلال شهر مارس بقيمة 1.000.00 وجويلية بقيمة 1.000.00 من كل سنة وهو لا يدخل إطلاقا في مجاميع الباقي من القروض او الأدوات الكهرومنزلية ويظهرا هاذين المبلغين في اقتطاع أخر في التقرير آمل اني قد وفقت في شرح ماهو معمول وماهو مطلوب وشكرا لك أخي جعفر عن سعة الصدر اي استفسار او شيء غير مفهوم إني موجود وفقك الله لما يحبه ويرضاه

للرفع

وعليكم السلام اخي جعفر الف مبروك دامت بيوتكم عامره بالافراح والسعادة وتحقيق الأمانى يارب أوك ان شاء الله

لللرفع

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

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

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

أستاذي العزيز جعفر هاهو فيديو يبين تفكيك الكود 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 ولاحظ النتيجة