Barna

تم اضافة الاسطر المضللة في الكود بما يتناسب مع الحالة قيد المشكلة

اشكرك اخي طاهر .... بارك الله فيك .... شغال على برنامج قطعني عن المنتدى ... جرب المرفق على الحالات السابقة والحالة الحالية حتى نتأكد من الكود .... Taher_1.mdb

اي التواريخ صحيحة .....

غير الكود لديك حسب الصورة

هل تقصد ترك سجلات القرض وكتابة تم التأجيل وإضافة سجلات جديدة بتواريخ جديدة

اذا وصلت لجهاز الحاسب احاول الرد ان شاء الله تعالى

طيب ولا تزعل نفسك .... ابحث عن هذا السطر في كل النماذج الفرعية لديك userResponse = MsgBox(result, vbOKOnly + vbInformation, "نتيجة التحقق") واستبدلها بهذا السطر userResponse = MsgBox(result, vbOKOnly + vbInformation + vbMsgBoxRight, "نتيجة التحقق")

كلامك سليم ...... الاكسسوارات والتنسيقات على صاحب البرنامج استاذي @Foksh جرب المرفق وكل الاحتمالات التي لديك ............. BAR_AِِِA_20250320.mdb

جرب كده ..................... BAR_AِِِA_20250320.mdb

اخي @طاهر اوفيسنا السلام عليكم ورحمة الله وبركاته تقبل الله منا ومنكم صالح الاعمال ارجو المعذرة لانشغالي هذه الفترة والفترة الماضية جرب المرفق وحاول كل الاحتمالات للتاكد من سلامة الكود بارك الله فيك ..................... BAR_AِِِA_20250320.mdb

كما ذكر اخي @Foksh صورة او ورقة اكسل وتكتب كل العناوين فيها وجعلها بدل مربعات النص او ورقة وورد

يبدو المشكلة لديك في الاستعلام Qry_rptD1 مكتوب بطريقة معقدة

استبدل نص الرسالة بهذا MsgBox "تم توزيع الإقتطاعات بنجاح" & vbCrLf & _ "مجموع اقتطاعات القروض: " & Format(TotalLoanDeductions, "#,##0.00") & " دج" & vbCrLf & _ "مجموع اقتطاعات الانخراط: " & Format(TotalSubscriptionDeductions, "#,##0.00") & " دج" & vbCrLf & _ "المجموع الكلي للاقتطاعات: " & Format(TotalDeductions, "#,##0.00") & " دج" & vbCrLf & _ "الباقي الكلي: " & Format(Remaining1, "#,##0.00") & " دج", _ vbInformation, "إقتطاعات شهر " & FrenchMonth(Month(Now())) & " " & Year(Now()) جرب واعلمنا بالنتيجة

ممكن تلصق الكود كاملا هنا .. حتى نعرف ايش صار