طاهر اوفيسنا

شكرا استاذ Moosak

السلام عليكم اساتذتي الكرام بالمرفق اريد مساعدة بخصوص الضغط مرتين على TheValueCcp يفتح الفورم Frm_VermLoans بتصفية على الشهر TxtMonth Verment.accdb

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

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

استاذ kanory ارجو منك التعديل على التقرير rptMasarif_Trémestre كما في الصورة بالضبط والله مافهمت المشكلة اين تكمن علما ان راس الصفحة هو تقرير فرعي kanory0 20240111.mdb

شكرا استاذ

استاذ kanory لقد اكتشفت ان الكود ROUND المبلغ كما في الصورة 212.611.80 يجعلها 212.612.00 فكيف يتم الغاء ROUND

1-1

اين المشكلة في الافيس الي عندي استاذ المهم عملت معيار في الاستعلام في 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 ونعمل استعلام تجميع يكون اسهل ولكن كيف تتم تجميع المعلومات بالاستعلام من عدة جداول ؟