Taher DZ

السلام عليكم اساتذة لقد عملت بالكود المعدل لفتح فورم من طرف الاستاذين Moosak و ابوخليل لفتح التقرير فوجدت صعوبة في ذلك Private Sub TxtMonth_DblClick(Cancel As Integer) If Me.TheValue <> 0 Then DoCmd.Close Dim stDocName As String stDocName = "rptTransfer_BEA_Ccp" DoCmd.OpenReport stDocName, acPreview, , , "month([TxtMonth]) =" & Year([TxtMonth]) Abou_Taha End If End Sub

وهو كذلك مشكور استاذنا الكريم ابوخليل

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

شكرا استاذ 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 في اتعاب المحاسب

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

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