طاهر اوفيسنا

اسعد الله مسائك استاذkanory استاذ حاولت تجريب ماتم تعديله من طرفك في تقرير اخر لدى ملف فتمت التصفية بنجاح الا ان رؤوس الجداول لم تظهر بالتقرير rptMasarif_Trémestre 01 ادخل على الفورم FrmMasarif_Trémestre 02 اختيار احد الثلاثيات 03 اضف مبلغ عند الباقي من الثلاثي الماضي 04 ادخل على التقرير 20231227.mdb

تستاهل اكثر من هذا المبلغ ههههههه استاذي الكريم بارك الله فيك

جربت الكود ولكن ظهرت مشكلة

استاذ عفوا نقصد لغيتها اي تنازلت عليها وليس لقيتها ههههه لاحول ولاقوة الا بالله انا اسف استاذي العزيز وحاولي في الطلب الي بعدها

استاذ خلاص لقيتها الفكرة هذه والان شوفلي كيفاش اذا كان مبلغ b اكبر 0 تكتب في الملاحظات "بسبب الوفاة" rs.AddNew rs!a = "منحة الأعفاء من دين القرض " rs!b = Nz(DSum("[Loan_Remise]", "[tbl_Loans]", "Year ([Payment_Month])=" & Me.txtYear), 0) 'rs!Obsérvation = IIf(([b]) > 0, "[Obsérvation]" = "بسبب الوفاة", "") 'rs!Obsérvation = IIf([b] > "0", "Obsérvation", "بسبب الوفاة", " ") If b < 0 Then Obsérvation = "بسبب الوفاة" End If

استاذ kanory ممكن تصحيح rs.AddNew rs!a = " اتعاب المحاسب " rs!b = Nz(DSum("[bill_Value]", "[bill]", Cretiria10 & "And ([Trans_ID]='1')"), 0) - Nz(DSum("[Facon_Value]", "[Faconce]", "Year ([Facon_Date])=" & Me.txtYear), 0) - Nz(DSum("[Omra_Value]", "[Omra]", "([année])=" & Me.txtYear), 0) rs!c = "03- المصاريف (النفقات)" rs!d = Nz(DCount("*", "[bill]", Cretiria10 & "And ([Trans_ID]='2')"), 0) rs.Update عملت اشارة - بينهم ولكن لم تعطيني المطلوب في b المطلوب b= 30000.00 في اتعاب المحاسب

شكرا استاذ على تعبك الله يجعله في ميزان حسناتك يارب نعم هو المطلوب وبأفكار ذكية ربي يبارك فيك

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

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

اهلا استاذ kanory شكرا على الاهتمام والرد الجداول عدة ولكن التقارير الفرعية كيف هل تقصد كل تقرير خاص لوخده ام ماذا

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

شكرا استاذ عمر صاحي على الرد جربت الكود ولكم كيف يحذف الفراغ الذي اختفى محتواه

ارجو المساعدة

حاولت ولكن لم يفي بالحل يمكن المشكلة في التصميم

السلام عليكم اساتدتنا الكريم هل يوجد كود اخفاء سجلات بالتقرير عندما يكون المبلغ (مصادر التمويل) يساوي 0 وتعويضه بالسجل الذي ياليه مباشرة كما في الصورة 02 20231220.mdb

السلام عليكم اخير ظهرت لي مشكلة عند فتح ملف الاوفيس كما في الصورة كيف يكون القضاء على هذه الرسالة ودخول للملفات اخوتي ؟

شكرا استاذ على الرد ولكن المطلوب العكس هل يتفع هذه :

2024 ‫‫.mdb

هل من الممكن عند القيام بحذف السحلات الفارغة يتغير تاريخ نهاية الخصم 01 باخر تاريخ بعد الحذف 02 علما ان تاريخ نهاية الخصم DiscountEndDate موجود في Frm_sub ! FrmCridi_sub

يارك الله فيك استاذ شكرا على المجهودات الجميلة دمت وفيا للمنتدى

تقريبا هذا المطلوب استاذ ارفق الملف المعدل للتوضيح أكثر

لاحظ الفيديو هذا استاذ حالة ثانية كريمو 12 عنده قرض 30000.00 2023-12-14_20-06-39.rar

لازم النتيجة تكون

السلام عليكم اساتذتي الكريم عند الدخول على فورم FrmCridi ومن ثمة الضغط على ايقونة سداد المبلغ وعند اضافة مبلغ باقي الاقساط في مكان مبلغ الاعفاء المطلوب حذف السجلات الباقية والفارغة مع اضافة مبلغ الاعفاء + المبلغ الشهري المفتطع وبوضع في مكان فيمة الاقتطاع كما في الصورة علما ان مصدر السجلات tbl_Loans 2024 ‫‫.mdb