Taher DZ

شكرا استاذ الفكرة كانت تصفية في الفورم فقط

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

السلام عليكم اساتذتي الكرام لدي جدولين مثلا الاول T1 ةهة الاصلي والثاني T2 فرعي يتضمنان نفس الحقول حيث NR تكون قيمته من 1 الى 16 اذا تغير رقم الوظيفة NR الى 9 او 10 او ..........الى 16 ينتقل السجلات المعنية الى الجدول T2 والعكس كذلك اذا غيرناهم من 1 الى 8 يرجع الى الجدول الاولT1 الاصلي فكيف تكون الفكرة تحويل.rar

ماعرفت اين تم التعديل هل غيرت الحقلNr من نص الى رقم

فعلا استاذ لم انتبه للكود عند Nr بل فكرت في زرع المبلغ الباقي في مربع الاعفاء والان استاذ العملية صحيحة ولكن عند تغيبر الوظيفة الى 15 تتغير كل السجلات الصح يكون في سجل الاعفاء فقط

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

للرفع

شكرا لقد تفطنت لها بعد محاولات عدة

لقد تمت العملية بنحاح

شكرا استاذ على الفكرة الجميلة ولكن يبدو هنا تناقض في الفلترة في الشهر انظر الصورة التخصيص شهر 2 وشهر 12 كيف ظهر بالنسبة لزر اقتطاع الانخراط تم اخفائها تظهر الا في شهر 3 او 7

شكرا استاذ تقصد هذه txtMonth = Date txtMonth0 = Date txtMonth1 = Date txtMonth2 = Date هل تم تعديل ماتم ملاحظنه من طرفك تقصد هذه المهم لك الحق في حذف الاشياء الزائدة ووافيني بالحل النموذجي وبارك الله

شكرا لك استاذ فعلا كما توقعت وقت مشكلة بعد توقيف كود اقتطاع الانخراط عبر الزر اقتطاع القروض للتجربة : مسحت مبلغ القرض للعامل 1 في (tbl_loans ( Payment_Made بتاريخ 2025/12/01 وقمت بالضغط على اقتطاع القروض عبر الفورم أكمل اقتطاع المبلغ الممسوح ولكن ظهر لي هذا خطأ عند النهاية اليك المرفق عدم الاقتطاع 6.rar

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

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

يا أستاذي العزيز فكرتك جميلة ولكن لا تنطبق على قوانين الخدمات التي اسيرها 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