طاهر اوفيسنا

اوك فهمت الان استاذ كانت فكرتي سابقا خاطئة

ان شاء الله هذا مثال بسيط للتعلم ارني كيف استنتج هذا المبلغ 650000 من الجدول tbl_Loans بالتفصيل للعلم انا اعرف ماذا يمثل هذا المبلغ ولكن اردت طريقة الحساب التي يوضحها Debug.Print وشكرا 20252025.rar

يمكن ولكن كنت فاكر أنه يجلب لك كل المجاميع التي خصصتها في الكود او القيم ذات النتيجة المحصلة مثلا باقي في عملية ما قيمة 65000.00 يعني يوصلك هذا المبلغ كيف استنتج ومن اين استخرج اليس كذلك .

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

فعلا استاذ تعديلك صحيح 100% وكان الرد منذ 6 ساعات تقريبا ولكن استاذي العزيز أعذرني والله ما انتبهت للحل من كثرة تهاطل الردود مساء اليوم كنت افتكر انني راسلتك على خطأ بأحد الاكواد اسف 1000 مرة استاذي العزيز ربنا مايحرمنا من تواجدك معنا ومساعدة اخوانك المبتديين جعلك الله ذخرا لهذا المنتدى الغالي ومنيرا له بوركت تقبل تحياتي القلبية الخالصة

نعم وجدت الحل من مشاركة الاستاذ Eng.Qassim تفضل استاذي العزيز 20260101.rar

من جدول Tbl_loans

نعم جربت وظهرت النتيجة تمام استاذ

فعلا استاذي العزيز كلامك صواب ولكن المشكلة كسرت بحيلة ذكية من طرف الاستاذ Eng.Qassim

فعلا لازم تعمل حيلة باش تكسر مشكلة الاكسس ههههههه تمت الحيلة هههههههههه في If Me.T9E = 0 Then Lblt9e = 0 Else Me.Lblt9e = rst.RecordCount End If rst.Close Set rst = Nothing الله يعطيك العافية استاذ بارك الله فيك ولقد استفدت من الحيلة حتى في Lblt9

في طريقك الي الحل الصحيح استاذ ولكن بقيت

انظر الصور سنة 2024 سنة 2025

202511.rar

*- هذه الجملة اعطت نتيجة في سنة 2025 فقط الديون المتبقية الى غاية : 2024/12/31 1.349.000.00 83 اما في سنة 2024 فأعطت نتيجة خاطئة الديون المتبقية الى غاية : 2023/12/31 0.00 74 *- اما الاول ولاخير فلم يعطيا النتيجة الصحيحة الاول مزال به خطأ والاخير لم يعطي الحل الصحيح الديون المتبقية الى غاية : 2023/12/31 0.00 734 الديون المتبقية الى غاية : 2024/12/31 1.349.000.00 612

شكرا استاذ على بذل المجهودات الحل الثاني انا ايضا احبذه ولكن ماعرفت كيف اعمل الكود لما نسخت الكود يبدو انه ظهر به مشكلة

الملف مرفقا من ثالث رد 2025-01-01_06-47-01.rar

لا لم تغير شيئا الصورة توضح الحل الصحيح

يا استاذ أبو عارف المشكلة تكمن في هذه الجملة MySQL = MySQL & " Where " & "Year ([Auto_Date])=" & Me.txtYear & " And [Loan_ID] > 0 " كيف يتم اضافة شروط لها حتى تحقق النتيحة ويمكن الاستغناء عن MySQL وتعويضها بهذه الدالة DCount Me.Lblt9e = Nz(DCount("[Loan_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0"), 0) - Nz(DCount("[Payment_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0"), 0) *- في سنة 2025 تعطيك 264 سجل بالتكرار وبدون تكرار 83 هي الاصح تكون بدالة DCount بالتجميع ودون تكرار حقل Employeeid

بقيت دار لقمان على حالها اي ولا تغيير استاذ ابو عارف

لم يحدث اي تغيير مالذي غيرته في الكود استاذ

2025-01-01_08-00-29.rar

لقد ارفقت مثالا استاذ أبو ابراهيم الغامدي بالاعلى

النموذج مستمد من الجدول مباشرة فعلا هو لا يعطي خطا ولكن لايعطي النتيجة الصحيحة مثال t9e=0.00 وعدد سجلاته Lblt9e = 83 خلال سنة 2024 t9e=1.349.000.00 وعدد سجلاته Lblt9e = 00 خلال سنة 2025 اليك المرفق للتوضيح 2025-01-01_06-47-01.rar

السلام عليكم اساتذة لدي مشكلة وهي عدم ظهور النتيجة صحيحة في جملة MySQL ةخاصة Lblt9e والتي تقوم بحساب عدد السجلات الموجود بدون تكرار ارجو التعديل Me.t9 = Nz(DSum("[Loan_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear & " And [Loan_ID] > 0 "), 0) - Nz(DSum("[Payment_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear & " And [Loan_ID] > 0 "), 0) MySQL = "" MySQL = "Select DISTINCT(Employeeid) From tbl_Loans" MySQL = MySQL & " Where " & "Year ([Auto_Date])=" & Me.txtYear & "And [Loan_ID] > 0 And ([Loan_Made]-[Payment_Made])=0" Set rst = CurrentDb.OpenRecordset(MySQL) Me.Lblt9 = rst.RecordCount 'T9E Me.T9E = Nz(DSum("[Loan_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear - 1 & "And [Loan_ID] > 0"), 0) - Nz(DSum("[Payment_Made]", "[tbl_Loans]", "Year ([Auto_Date])=" & Me.txtYear - 1 & "And [Loan_ID] > 0"), 0) MySQL = "" MySQL = "Select DISTINCT(Employeeid) From tbl_Loans" MySQL = MySQL & " Where " & "Year ([Auto_Date])=" & Me.txtYear & "And [Loan_ID] > 0 " Set rst = CurrentDb.OpenRecordset(MySQL) Me.Lblt9e = rst.RecordCount

سلام عليكم اخي - اتق الله أخى هذا الكلام اوجعنا كثيرا ولكن أعتذارك على مغادرة المنتدى اوجعنا اكثر فأكثر نصيحة من اخ لاخية كن صبورا ولا تكن مستعجلا ولا تترك فرصة للشيطان يسكن افكارك فهذا المنتتدى تعلمنا منه الكثير بفضل الله اولا ثم بفضل الاخوة الاعزاء بارك الله فيهم جميعا عليك مراعاة مساعدة الاخوة الاساتذة فمنهم مشغول بإنشغالاته اليومية ومنهم من لم يفهم طلبك تريث قليلا وستجد ماكنت تحسبه صعبا سهلا بحول الله