طاهر اوفيسنا

فعلا فكرة جميلةجدا هل لك استاذي ان تستطيع ان لاتتركها تساوي الصفر دائما عند دخول الفورم وان تزيد للميساج الباقي هو .......... دج مثلا علما ان الباقي ناتج من دالة romining

نعم في الجدول صحيح ولكن مالغاية من ظهورها عند كل فتح النموذج وهي تحمل قيم 0,00 دج

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

شكرا استاذي العزيز وربي يوفقك مشكلتي وهي عند التعديل على الكود يظهر ميساج مبلغ الاقتطاعات إلا في شهر 3و7 و المطلوب ظهوره عند كل شهر اقتطاع لكي نعرف قيمة المبلغ المقتطع

شكرا استاذ ولكن قبل التعديل الاخير كان الكود يدخل عادي في كل الإشهر ويظهر ميساج المبلغ ومن خلال المقارنة بين القديم و الجديد حسب علمي اتضح لي ان الفرق في كلمة loop وقديما كانت Next i والله اعلم Loop.Next i.rar

بعد التعديلات وعند تنفيذ الكود اكتشفت ان الكود لايذهب الى الجزء الثاني ( الشرط) والذي به الميساج MsgBox الذي يبين مبلغ الاقتطاع ويذهب الا في شهري اقتطاع الانخراط فقط يعني (شهر3و 7) اما الإشهر الباقية لايذهب أين تكمن المشكلة ؟ياترى

شكرا استاذ على النصيحة المطلوب تم بواسطة الاستاذ Barna وهو مشكور على ايجاد الحل ولكن الان المشكلة بسيطة وهي في ظهور المبلغ بالميساجmsgBox عند توزيع الاقتطاعات يظهر المبلغ غالط تقريبا وجدت الحل ويكمن في طريقة وضع في مكانها الصحيح rst.Update

للأسف MsgBoxلم يظهر المجموع الصحيح وهو 588.500.00 حسب المرفق المعدل اليوم من طرفك بل اظهر مبلغ 115.900.00 منعرف الكود من أين اتى به ؟

استاذ Barna لقيت مشكل في MsgBox الاخر الي يعلمك بانه تم توزيع الاقتطاعات ومجموع الاقتطاعات يكون ناقص على المجموع الحقيقي في الجدول مثلا المجموع في الجدول القروض =344000.00 والانخراطات =247500.00 يعني المجموع الكلي يساوي 591.500.00

لقد وقفت الاولى فظهر الميساجMsgBox بدون مبلغ مالي استاذ ممكن اعرف كيف اختصرت الكود وهل يعمل بشكل عادي عند بقية الشهور وخاصة عند دفع مبلغ الانخراط بعد مارس

استاذ لماذا وظفت زوج MsgBox The_Sum = Format(The_Sum, "#,##0.00") MsgBox "تم توزيع الإقتطاعات" & vbCrLf & vbCrLf & "مجموع الإقتطاعات = " & The_Sum, , "إقتطاعات شهر " & FrenchMonth(Month(Now())) & SelectedYear End If The_Sum = Format(The_Sum, "#,##0.00") MsgBox " " & "تم توزيع الإقتطاعات" & vbLf & vbLf & "مجموع الإقتطاعات = " & The_Sum, , "إقتطاعات شهر" & FrenchMonth(Month(Date)) & Year(Date)

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

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

ممكن ارساله في ملفtxt لاني بالمبايل ولايمكن لي نسخ الكود ووضعه بالكمبيوتر وهذا الاخير بدون نات

الموضوع ساهل استاذ ولكن يمكن الفكرة لم تصل اليك

شكرا استاذ على مرورك الطيب استاذ التعديل يشتغل طبقا لما تم طلبه في الموضوع الماضي ولكن عند التجريب حاليا وبالاخص في اقتطاع شهر مارس 2025 قام الكود باستثناء بعض العمال لم يقتطع لهم مبلغ الانخراط لشهر مارس 2025 والمقدر ب 1500 وهذا هو المشكل (لماذا التعديل على الكود يستثنى عمال وهم في الحقيقة تتوفر فيهم شروط الاقتطاع؟)نتمنى من يجد لي حلا في القريب العاجل لاني ملزم بدفع الاقتطاع الخاص بشهر مارس في اقرب وقت

موجود بالاكسس

كود الاقتطاع يعمل مع الجدول Employee و tbl_Loansمباشرة استاذ

استاذ نفس المشكلة ياريت ترى مشكلة الكود بالمرفق ادناه بدون مارس25.rar

تم توقيفها ' rst!Nr = GetNumDetach(rst!EmployeeID) ولكن لم تحل المشكلة

شكرا استاذ نسخت الكود وجربت ولكن ظهر هذا الميساج علما ان الكود به شطر اخر بالاعلى (المرفق يحتوي على الكود كامل) كود.rar

اساتذتي الكرام اليست المشكلة في rst!Nr = GetNumDetach(rst!EmployeeID) علما ان دالة GetNumDetach هي كمايلي Function GetNumDetach(emp As Variant) As Integer Dim rst As DAO.Recordset If IsNull(emp) Or emp = 0 Then GetNumDetach = 16 Else Set rst = CurrentDb.OpenRecordset("SELECT TblDetaché.Nr, Employee.EmployeeID FROM TblDetaché INNER JOIN Employee ON TblDetaché.detach = Employee.detach WHERE Employee.EmployeeID =" & emp) GetNumDetach = rst!Nr rst.Close Set rst = Nothing End If End Function

توضيح : الاساتذة الذين لم يفهمو طلبي - بعد التعديل الاخير على كود الاقتطاع ( 1- بالنسبة لاقتطاعات القروض عادية وبدون مشاكل 2- بالنسبة لاستنثاء الذين دفعو مبلغ الانخراط كاملا خلال شهري 1 و 2 عادي بدون اي مشكل) المشكلة في ان الكود إستثني إقتطاع مبلغ "الانخراط" لبعض العمال بالرغم من انهم معنيون بالاقتطاع لمبلغ 1500 لشهر مارس لسنة 2025 في الجدول tbl_Loans منهم من وضع لهم 0.00 ومنهم من تخطاهم نهائيا ارجو اني وفقت في التوضيح

استاذ نحكي على العمود 5 في الصورة هو المعني بالاقتطاع او دفع الاشتراك السنوي اما العامل رقم 67 ومبلغ 3000فهو اقتطاع القروض

شكرا استاذ على الاهتمام فعلا هو مستثنى من الاقتطاع واشرت له في الرد السادس بالصور باللون الاخضر مافيش مشكلة بهذا المشكلة في باقي العمال لم يدفعو المبلغ ولم يتم الاقتطاع التلقائي لهم خلال مارس وهذا بيت القصيد