طاهر اوفيسنا

شكرا استاذ ولكن قبل التعديل الاخير كان الكود يدخل عادي في كل الإشهر ويظهر ميساج المبلغ ومن خلال المقارنة بين القديم و الجديد حسب علمي اتضح لي ان الفرق في كلمة loop وقديما كانت Next i والله اعلم Loop.Next i.rar

بعد التعديلات وعند تنفيذ الكود اكتشفت ان الكود لايذهب الى الجزء الثاني ( الشرط) والذي به الميساج MsgBox الذي يبين مبلغ الاقتطاع ويذهب الا في شهري اقتطاع الانخراط فقط يعني (شهر3و 7) اما الإشهر الباقية لايذهب أين تكمن المشكلة ؟ياترى

شكرا استاذ على النصيحة المطلوب تم بواسطة الاستاذ Barna وهو مشكور على ايجاد الحل ولكن الان المشكلة بسيطة وهي في ظهور المبلغ بالميساجmsgBox عند توزيع الاقتطاعات يظهر المبلغ غالط تقريبا وجدت الحل ويكمن في طريقة وضع في مكانها الصحيح rst.Update

للأسف MsgBoxلم يظهر المجموع الصحيح وهو 588.500.00 حسب المرفق المعدل اليوم من طرفك بل اظهر مبلغ 115.900.00 منعرف الكود من أين اتى به ؟

استاذ Barna لقيت مشكل في MsgBox الاخر الي يعلمك بانه تم توزيع الاقتطاعات ومجموع الاقتطاعات يكون ناقص على المجموع الحقيقي في الجدول مثلا المجموع في الجدول القروض =344000.00 والانخراطات =247500.00 يعني المجموع الكلي يساوي 591.500.00

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

استاذ لماذا وظفت زوج MsgBox The_Sum = Format(The_Sum, "#,##0.00") MsgBox "تم توزيع الإقتطاعات" & vbCrLf & vbCrLf & "مجموع الإقتطاعات = " & The_Sum, , "إقتطاعات شهر " & FrenchMonth(Month(Now())) & SelectedYear End If The_Sum = Format(The_Sum, "#,##0.00") MsgBox " " & "تم توزيع الإقتطاعات" & vbLf & vbLf & "مجموع الإقتطاعات = " & The_Sum, , "إقتطاعات شهر" & FrenchMonth(Month(Date)) & Year(Date)

مبدئيا هذا هو المطلوب استاذ أتمنى ان لا ارى مشكل في شهر جويلية القادم شكرا والف شكرا استاذ يبدو انك اختزلت الكود استاذ ي العزيز Barna

شكرا استاذ على الاهتمام التعديل مزال فيه مشاكل لاحظ الصورة بتمعن

ممكن ارساله في ملفtxt لاني بالمبايل ولايمكن لي نسخ الكود ووضعه بالكمبيوتر وهذا الاخير بدون نات

الموضوع ساهل استاذ ولكن يمكن الفكرة لم تصل اليك

شكرا استاذ على مرورك الطيب استاذ التعديل يشتغل طبقا لما تم طلبه في الموضوع الماضي ولكن عند التجريب حاليا وبالاخص في اقتطاع شهر مارس 2025 قام الكود باستثناء بعض العمال لم يقتطع لهم مبلغ الانخراط لشهر مارس 2025 والمقدر ب 1500 وهذا هو المشكل (لماذا التعديل على الكود يستثنى عمال وهم في الحقيقة تتوفر فيهم شروط الاقتطاع؟)نتمنى من يجد لي حلا في القريب العاجل لاني ملزم بدفع الاقتطاع الخاص بشهر مارس في اقرب وقت

موجود بالاكسس

كود الاقتطاع يعمل مع الجدول Employee و tbl_Loansمباشرة استاذ

استاذ نفس المشكلة ياريت ترى مشكلة الكود بالمرفق ادناه بدون مارس25.rar