طاهر اوفيسنا

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

اليك الملف الي به مشكل استاذ 20231228.mdb

غدا سارسله بإذن الله لان المشكل موجود في جهاز العمل تقبل تحيايت استاذي العزيز kanory

بعد التعديل

فهمت الى ماذا اشرت استاذ لكن وقع مشكل اخر

اين اجد cars

اسعد الله مسائك استاذ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