Taher DZ

فعلا وهو كذلك شكرا لك استاذ اما بخصوص كود القديم الاقتطاع الموجود في الفورم اذا تم توقيفه لايؤثر على اقتطاعات القروض

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

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

والحل الصحيح كيف يكون ؟

الخلل في شيئين: 1- اول حاجة الكود بقطتع بوجود cridi مكانش كريدي لا يدخل ولا يقتطع مانعرف علاش مرتبط بهذا 2- وكما أشرت في المرفق اليوم صباحا ان المنخرط رقم 4 وتركته لوحده بعد حذف كل المنخرطين في Tbl_Loans وعملت له دفع يدوي بتاريخ جانفي 2026 بقيمة 3000.00 ...... 1 او 1500.00 ....... 2 نفس الشيء الاولى زاد اقتطع له مبلغ اخر اي زاده 1500.00 فاصبح منخرط بمبلغ 4500.00 والثانية بقيت على حالها بعد مسح القروض راني نحكي على شهري 3 و 7 من سنة 2026

شكرا استاذ على المجهودات الجبارة التي تقوم بها من اجل اسعاد الاخرين ربي يبارك فيك وفي صحتك وفي اولادك تقريبا توصلنا الى حل شبه نهائي المشكلة في ان الشخص الي دفع 3000.00 في السنة يبقى الكود يقتطع له مبلغ الانخراط 1500.00 ولك مثال في المنخرط 4 عملت له دفع يدوي بتاريخ 2026/01/23 بمبلغ 3000.00 وقمت بتغيير التاريج الى شهر 2026/3 فاقتطع له مبلغ اخر 1500.00 بتاريخ 2026/03/01 فاصبح دافع 4500.00 وهذا خطأ عدم الاقتطاع 3.rar

يعمل بدون مشكل ولكنه لم يقتطع مبلغ 1500.00 لاي منخرط كالعادة استثناءا عدم الاقتطاع مبلغ الانخراط خلال شهر مارس2026.rar

ظهر لي مشكل

استاذي العزيز ابو خليل افهمني مليح وخلي نغلقو الموضوع ' مجموع ما دفعه سابقًا totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID=" & EmpID), 0) ' إذا وصل 3000 ? توقف If totalPaid >= 3000 Then GoTo SkipInkhirat End If هذا الشطر من الكود يستنثي السجلات التي تحتوي على مبلغ 3000.00 دج خلال السنة اي لايضيف سجل اخر اريد التعديل عليه اذا كانت سنة جديدة يسمح الكود بالاضافة في حدود سجلين فقط وكل سجل بقيمة 1500.00

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

استاذ وجدت صعوبة في ارفاق الفيديو سوى بصيغة rar او mp4 https://k.top4top.io/m_364437txw1.mp4 عندما قمت بمسح مبلغ اقتطاع القرض للمنخرط رقم 4 خلال تاريخ 2025/12/01 وقمت بالدخول للنموذج لقد تحقق اعادة الاقتطاع من جديد ولكن عند الدخول بتاريخ 2026/03/01 تحقق اقتطاع الانخراط ولكن ليس للكل " اي منخرط عنده مبلغ 3000.00 من سنة 2025 استثناه الكود في سنة 2026 " .......... (1) مثلا المنخرط رقم 4 وكذا المنخرطين 256/261/290 استثناهم كما في (1) لم يقتطع لهم مبلغ الانخراط لسنة 2026 المقدر ب 1500.00 يفيد ان بان الكود لا يؤدي بواجبه مائة بالمئة وخاصة في شطره الاستنثناء هذا ' مجموع ما دفعه سابقًا totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID=" & EmpID), 0) ' إذا وصل 3000 ? توقف If totalPaid >= 3000 Then GoTo SkipInkhirat End If

لا استاذ يمكن تعديل الاخ الي قبل هو سبب عدم اقتطاع الشهري للقروض بعدما كان يقتطع عادي والان بحكم خبرتكم لم تعرفو اين تكمن المشكلة بالرغم من وجود فورم FrmTransfer1 بقتطع عادي الم يتم التنسيق بينه وبين FrmTransfer الذي به المشكلة ديسمبر فعلا تم الاقتطاع يدويا لو غير تاريخ الجهاز الى شهر جانفي 2026 لأكتشفت المشكلة عند المنخرط رقم 4 او قمت بمسح المبلغ المقتطع لتاريخ 2025/12/01 وقمت بالدحول للفورم FrmTransfer ستجده يبقى فارغا اي الكود لم يقتطع المبلغ استاذ هذه السجلات تنشي من جديد خلال أشهر الاقتطاع فقط ولك دالة النموذج الثاني FrmTransfer1 كمثال اقتطاع

نسخت لك FrmTransfer1 للتوضيح فقط والعمل علىFrmTransfer الذي يكون فيه التعديل

تفضل استاذ المرفق به الشرح والصورة والملف عدم الاقتطاع مبلغ الانخراط خلال شهر مارس2026.rar

وعليكم السلام شكرا استاذ على الاهتمام وساوافيك بما هو غامض لك وفق ملف Txt ومعذرة لاني اتصل من المبايل والكتابة صعبة جدا توضيح.rar

للرفع

السلام عليكم اساتذي الكرام بعد التجريب على التعديل الاخير اصبح الكود لايقطتع خلال شهري 3 او 7 من السنة 2026 لكامل العمال المنخرطين ارجو منكم اعادة النظر في تصحيح الكود للعلم انه بخصوص عملية الانخراطات هو اضافة سجلات جديدة خلال شهر مارس وجويلية في جدول tbl_loans بعد التعديل الاخير لم يقطتع الكود خلال شهر مارس 2026.rar

شكرا استاذ منتصر على الاهتمام والتعديل هل التعديل مس القروض ايضا لاني صراحة دخلت على الجدول Tbl_Loans وبالخصوص المنخرط رقم 4 كما في الصورة وحدفت للتجريب المبلغ المقتطع 5000.00 الذي يخص تاريخ 2025/07/01 وارجعت تاريخ الجهاز الى شهر 7 فلم يكمل له اقتطاعه وقبل التعديل الاخير كان عادي لايخص القروض بل كان المطلوب التعديل على Loan_Type =Inkhirat او Loan_ID =0 فقط وزيد سبقت تاريخ الجهاز الى مارس 2026 لكي يقتطع لجميع المنخرطين مبلغ 1500.00 كما كان سابقا فظهر لي ميساج المفيد ان الكود لا يؤدي وظيفة بطريقة صحيحة

لقد حاولت مرارا وتكرارا التعديل على الكود فلم يتم الحل 202512.rar

تكملة للفهم اكثر فما كود شغال 100 بالمية عند كتابة المبلغ المدان 20000.00 دج في مربع النص( المبلغ الشهري المقتطع) تحذف الاشهر الاربعة الباقية ويجمع القيمة المدانة في قيمة الاقتطاع

السلام عليكم اساتذتي المطلوب عند الدخول على الفورم FrmCridi نختار رقم 9 ثم نقوم بتخصيص الفورم القروض المالية ثم نضغط على زر سداد المبلغ ثم نقوم بتغيير رقم الوظيفة الى 15 فيقوم الكود بالتعديل كما في الصورة المرفقة مع الملف Taher_22122025.rar

😂😂😂

شكرا استاذ على التعقيب فعلا كما اشرت وانتهينا من هذه المشكلة العويصة ربي يبارك في كل وضع بصمتة في الموضوع 🙏 غدعلنا ان الاستاذ خليفه تطرق للتعديل بسيط داخل الكود عند الشرط 5>= Nr حسب مالاحظت لاني جربت ومافلحت لهذا قلت بقيت دار لقمان على حالها هههههههه

ياسيدي يااستاذي العزيز "شعارك خير الناس انفعهم للناس" ياريت لاتبخل علينا بما اتاك الله من علم