طاهر اوفيسنا

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

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

السلام عليكم استاذ عمر ضاحي وقع لي مشكل عند فتح التقرير rtpMada5il_te من الفورم FrmMada5il حيث يظهر فارغا والخاص بالمداخيل فقط بينما التقرير rptMasarif_Trémestre عندما ندخل له نجده جالب لكافة مبالغة من الفورم FrmMasarif_Trémestre مالمشكلة ؟ ارجو المساعدة 20241219.rar

شكرا استاذي الكريم على تعبك معي الكود شغال 100 %

استاذ هل تم التعديل على الكود هنا فقط يعني "*النظارات*" تم استبدالها ب "*لا يمكن*" ' التحقق من استحقاق الامتياز قبل المتابعة If (result Like "*كاملا*" And Not result Like "*لا يمكن*") Then ' طلب تأكيد تثبيت المنحة If MsgBox("هل تريد تثبيت تاريخ التعويض الطبي؟", vbYesNo + vbQuestion, "تأكيد") = vbYes Then

كل شي تمام استاذ بقيت المشكلة التي اشرت لها في الرد السابق

سأنظر فيها غدا بحول الله بالتجربة المملة لجميع الاحتمالات في مكان العمل ان شاء الله وسأوافيك بالرد

انظر استاذ كريمو1 استفاد في سنة 2021 بنظارات طبية في سنة 2024 من حقة الاستفادة مجددا ....... صح ولكن يظهر اولا يوافقك الاستفادة ثانيا يرقض تثبيتها

شكرا استاذ على الطرح فكرة ممتازة جدا ولكن فما مشكلة في الكود عند انقضاء مدة عامين ومن حقة الاستفادة مجددا 200.rar

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

منتظرك ان شا ء الله استاذ

انظر استاذ مثل هذا كما في الصورة

فكرة جيدة استاذ لقد انشأت حقل عدد الاستفادة Beriod في كلى الجدولين N_Sanitaire وN_Menha وبه ارقام -1مرة واحدة -100اكثر من مرة. فكيف يكون التعديل

استاذ Barna لنفرض اننا اشترطنا مستقبلا منحة الزواج [Menha_ID] =5 مرة واحدة فقط فكيف يكون التعديل على الكود result_Zawaj = DLookup("[Menha_Date]", "[Mena7]", "[EmployeeID] =" & ID & " And [Menha_ID] =" & [Forms]![FrmMenah]![Frm_sub].[Form]![CmdMenha] & " And [Menha_ID] =5")

تمام استاذ الكود يعمل بشكل جيد في كلتى الحالتين منحة الحج - تعويض النظارات الطبية والفلترة متوقفة على "نوعية القرابة" عمل جيد استاذي ربي يحفظك

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

عذرا استاذي Barna على تغيير الرد اولا : تم النقل والنسح كما اشرت ثانيا لازم زيادة شرط عند الضفط على موافق في هذا الميساج لا يضاف سجل جديد الميساج رقم 01 وعند ظهور الميساج رقم 01 لا يظهر الميساج رقم 02 الميساج رقم 02

شكرا استاذ اولا : تم النقل والنسح كما اشرت ثانيا لازم زيادة شرط عند الضفط على موافق في هذا الميساج لا يضاف سجل جديد الميساج رقم 01 وعند ظهور الميساج رقم 01 لا يظهر الميساج رقم 02 الميساج رقم 02 2024-12-13_21-33-07.rar

نعم استاذي العزيز وياريت تذكر اسم المستفيد سابقا في الميساج