طاهر اوفيسنا

كود الاقتطاع يعمل مع الجدول 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فهو اقتطاع القروض

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

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

اي استاذ ماينفعش هكذا ادخل على التقرير مباشرة وادخل التاريخ 2025/03/01 وسترى النتيجة

المرفق في الرد الثاني به التقرير استاذ وللتذكير لازم تدخل على شهر مارس القادم لكي تعرف أين يكمن المشكل

للتوضيح اكثر خلال شهر مارس 2025 العمال كريمو67 و 144و 160 و265 يقتطع لهم 0,00 اما العمال ارقام 68-145-161-219-221- 259 هؤلاء الكود لا يقتطع لهم نهائيا بل يتخطاهم وهم معنيون بالاقتطاع 1500 20250301.rar

السلام عليكم اساتذني الكرام بعد التعديل الذي تم في المشاركة من هنا ولما طلب مني اقتطاع شهر مارس 2025 وجدت ان الأغلبية لا يقتطع لهم مبلغ الإخراط 1500.00 فهمت ان الكود المعدل لا يؤدي وظيفته على احسن مايرام ' .......................... الشطر الثاني اقتطاع الانخراط 'Other loans for March (3) and July (7) If Month(Now()) = 3 Or Month(Now()) = 7 Then Dim rstE As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans") myCriteria = "[detach]= 'موظف' " myCriteria = myCriteria & " Or [detach]= 'متعاقد توقيت كامل' " myCriteria = myCriteria & " Or [detach]= 'عامل متعاقد توقيت جزئي' " myCriteria = myCriteria & " Or [detach]= 'حارس متعاقد توقيت جزئي' " myCriteria = myCriteria & " Or [detach]= 'عون نظافه وتطهير' " 'myCriteria = myCriteria & " Or [detach]='منتدب'" Set rstE = CurrentDb.OpenRecordset("Select * From Employee Where " & myCriteria) rstE.MoveLast: rstE.MoveFirst Rc = rstE.RecordCount For i = 1 To Rc If Month(Now()) = 3 Then If Nz(DLookup("Payment_Made", "tbl_Loans", "EmployeeID=" & rstE!EmployeeID & _ " And [Payment_Made]=3000 And [Payment_Month] Between #1/1/" & Year(Now()) & "# And #2/28/" & Year(Now()) & "#"), 0) = 3000 Then rstE.MoveNext GoTo NextEmployee End If End If If Month(Now()) = 7 Then If Nz(DLookup("Payment_Made", "tbl_Loans", "EmployeeID=" & rstE!EmployeeID & _ " And [Payment_Made]=3000 And [Payment_Month] Between #4/1/" & Year(Now()) & "# And #6/30/" & Year(Now()) & "#"), 0) = 3000 Then rstE.MoveNext GoTo NextEmployee End If End If rst.FindFirst "[Loan_Type]='Inkhirat' And [EmployeeID]=" & rstE!EmployeeID & " And [Payment_Month]=#" & Me.TxtMonth & "#" If rst.NoMatch Then rst.AddNew a2 = 1 rst!EmployeeID = rstE!EmployeeID rst!Loan_ID = 0 rst!Payment_Month = DateSerial(Year(Me.TxtMonth), Month(Me.TxtMonth), 1) rst!Payment_Made = DLookup("Other_Value", "TblOther", "ID=1") rst!Loan_Type = "Inkhirat" rst!Nr = GetNumDetach(rst!EmployeeID) rst!Remarks = "إقتطاع من الراتب لإنخراط شهر " & Year(Me.TxtMonth) & "/" & Month(Me.TxtMonth) rst!annee = Year(DATE) If rst!Loan_Type = "Inkhirat" Then rst!sadad = rst!Payment_Made If rst!sadad.Value = True Then rst!wada3 = "تم الإنخراط" Else rst!wada3 = "لم يتم الإنخراط" End If End If ارجو منكم ايجاد المشكل 20250301.rar

تم ايجاد الحل في مشاركة أخرى

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

وهو كذلك التعديل كان في محله بوركت استاذ Foksh ربي يحفطك

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

استاذ الطريقة هي إدراج سجل جديد خلال شهري 3 و 7 والكود يدرج هذا تلقائيا بالنسبة الانخراطات فقط مشكلتي منع الكود من إدراج سجل جديد بقيمة 1500 للمنخرط الذي دفع مبلغ الانخراط كاملا ولقد فتحت موضوع جديد يوضح

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

اساتذتي بعد التحية الاخوية السلام عليكم ورحمة الله تعالى وبركاته هل طلبي مستحيل ان اجد له حلا في معادلات واكواد الاكسس ام ان الطلب غير مفهوم لدى البعض ارجوكم الرد بكلتي الحالتين

التعديل لم يفي بالغرض المطلوب

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

استاذ يبدو الخلبطة عندي غدا سأجربه في البرنامج الرئيسي واوافيك الرد

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