Taher DZ

شكرا استاذ منتصر على الاهتمام والتعديل هل التعديل مس القروض ايضا لاني صراحة دخلت على الجدول 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 حسب مالاحظت لاني جربت ومافلحت لهذا قلت بقيت دار لقمان على حالها هههههههه

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

شكرا استاذ لقد عالجت لي مشكل ظهور الميساج ولكن يبدو ان تعديل الاخ لم يكن في محله مشكلتي استاذ : احبذ التعديل في اقتطاعات الانخراط في شهري 3 و 7 يكون مرة واحدة فقط اي عند اظافة عامل جديد او غيره لا يقتطع له بعد عند الرجوع الى الشهرين المعنيين ملاحظة : جرب العامل رقم 1 واجغلة موظف والرقم Nr=1 وادخل على الفورم FrmTransfer خلال شهر 3 وانظر يقطتع له مبلغ 1500

اولا : يوجد مرفقين ايهما الذي تم التعديل عليه هذا من جهة ومن جهة اخرى تفطنت لماهو في الشرح ليلة البارحة اي جعلت حقل Nr رقمي ولكن لاحياة لمن تنادي بقيت دار لقمان على حالها

استاذ kkhalifa1960 انظر المرفق حتى لا تغير تاريخ جهازك الى شهر 3 و 7 تم تغير اقتطاعات الانخراط الى شهري 11 و 12 لكي يتسنى لك وللأساتذة رؤية ميساج الخطأ اقتطاع مرة واحدة فقط 2025-1.rar

مالك استاذ خليفة ؟ لقد افرحتني لما ظهر لي ميساج بان فيه رد منك ولكن لما دخلت الموضوع وجدت تعجبا 😢

نعم لا يوجد زر وانما عند دخول الفورم مباشرة والمشكلة في شهري 3و7 التي تخص الانخراط و للعلم انت جربت شهر 12 يدخل عادي بدون مشاكل انظر هذا الجزء من الكود '=========================================================== ' الانخراط — مارس أو يوليو فقط '=========================================================== If Month(CurrMonth) = 3 Or Month(CurrMonth) = 7 Then Dim db As DAO.Database Dim rstE As DAO.Recordset Dim totalPaid As Double Dim EmpID As String Set db = CurrentDb Set rstE = db.OpenRecordset("SELECT * FROM Employee WHERE Nr <= 5", dbOpenDynaset) If Not rstE.EOF Then rstE.MoveFirst Do Until rstE.EOF EmpID = rstE!EmployeeID ' Text field ' منع التكرار داخل نفس الشهر If DCount("*", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID='" & EmpID & _ "' AND Payment_Month=#" & Format(CurrMonth, "mm/dd/yyyy") & "#") > 0 Then GoTo SkipInkhirat End If ' مجموع ما دفعه سابقًا totalPaid = Nz(DSum("Payment_Made", "tbl_Loans", _ "Loan_ID= 0 AND EmployeeID='" & EmpID & "'"), 0) ' إذا وصل 3000 ? توقف If totalPaid >= 3000 Then GoTo SkipInkhirat End If '=========================================================== ' ?? إصلاح خطأ 3464 — السطر المعدل فقط '=========================================================== Set rst = db.OpenRecordset("tbl_Loans", dbOpenDynaset) rst.FindFirst "[Loan_ID]=0 AND [EmployeeID]='" & rstE!EmployeeID & _ "' AND [Payment_Month]=#" & Format(CurrMonth, "mm/dd/yyyy") & "#" '=========================================================== If rst.NoMatch Then rst.AddNew rst!EmployeeID = EmpID rst!Payment_Month = CurrMonth rst!Payment_Made = 1500 rst!Loan_Type = "Inkhirat" rst!Loan_ID = 0 rst!sadad = 1500 rst!Loan_Remise = 0 rst!Nr = rstE!Nr rst!wada3 = "تم الإنخراط" rst!Remarks = "إقتطاع انخراط شهر " & Month(CurrMonth) & "/" & Year(CurrMonth) rst!annee = Year(CurrMonth) rst.Update TotalLoanInkhirat = TotalLoanInkhirat + 1500 End If rst.Close SkipInkhirat: rstE.MoveNext Loop rstE.Close db.Close End If

عند الدخول الى فورم FrmTransfer والحدث عند تحميل Private Sub Form_Load() txtMonth = Date txtMonth0 = Date txtMonth1 = Date txtMonth2 = Date Call txtMonth1_AfterUpdate Call NormalizeMonth Call cmd_Pay_installments_Click End Sub عند استدعاء الاخيرة Private Sub cmd_Pay_installments_Click()

السلام عليكم لقد تم التعديل من طرف احد الاخوة جزاه الله كل خير على تعبه ولكن ظهر هذا الميساج الذي يوحي بوجود خطأ رغم محاولاته ولكن لم يفلح ارجو من الاخوة معالجة ذلك وشكرا لكم اقتطاع مرة واحدة فقط 2025-1.rar

السلام عليكم اساتذتي الاعزاء ومعذرة على الرجوع الى هذا الموضوع ولكن ما باليد حيلة اثناء التصفيات المالية لنهاية السنة واثناء رجوع تاريخ الكمبيوتر خلال شهري مارس وجويلية الفارطين وجدت ان الكود يقتطع مبلغ 1500.00 للذين استثنو في وقتها المطلوب التعديل على الكود لايقتطع الا مرة واحدة خلال دخول الشهر للمرة الاولى فقط اي اذا اردت الدخول من جديد لا يقتطع علما ان المشكلة في الشطر الثالث : اقتطاع الانخراط افتطاع مرة واحدة فقط 2025.rar