طاهر اوفيسنا

لو كانت المشكلة في الاستعلام كما اشرت كانت كل الاشهر بها مشاكل حسب فكري المشكلة في وضع دالة الباقي في مكانها الصحيح والله اعلم Remaining1 = Nz(DSum("[Remaining]", "[qry_rptD1]"), 0) لان بدون مبلغ الباقي Remaining1 يظهر الميساج عادي ولكن فارغ انظر الصورة

جربت استاذ يبدو ان شهر فيفري عادي اما شهر مارس 2025 مزال الكود به مشكلة ادخل على شهر مارس من خلال تغيير التاريخ بالجهاز وليس الفورم وسترى المشكلة BAR_27022025.rar

لاحظ استاذ الصورتين والكود بالمرفق barna.rar

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

فعلا فكرة جميلةجدا هل لك استاذي ان تستطيع ان لاتتركها تساوي الصفر دائما عند دخول الفورم وان تزيد للميساج الباقي هو .......... دج مثلا علما ان الباقي ناتج من دالة romining

نعم في الجدول صحيح ولكن مالغاية من ظهورها عند كل فتح النموذج وهي تحمل قيم 0,00 دج

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

شكرا استاذي العزيز وربي يوفقك مشكلتي وهي عند التعديل على الكود يظهر ميساج مبلغ الاقتطاعات إلا في شهر 3و7 و المطلوب ظهوره عند كل شهر اقتطاع لكي نعرف قيمة المبلغ المقتطع

شكرا استاذ ولكن قبل التعديل الاخير كان الكود يدخل عادي في كل الإشهر ويظهر ميساج المبلغ ومن خلال المقارنة بين القديم و الجديد حسب علمي اتضح لي ان الفرق في كلمة 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)