طاهر اوفيسنا

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

التقارير عير موجودة الكود عند Private Sub cmd_Pay_installments_Click() ثم الى الجدول tbl_Loans مباشرة

غير تاريج الجهاز الى شهر مارس وافتح الفورم سترى النتيجة عندها اذهب الى الجدول tbl_Loans واغمل الفلترة للعامل 89 كعينة سترى انقطاع القروص المبلغ المقتطع = 5000 ودفع الانخراط في المبلغ المقتطع = 3000 والمبلغ المقتطع الذي تم تلقائيا هو = 1500 وهذا الاخير هو المطلوب لازم مايكون معذرة المرفق الذي ارفقته قبل به اقتطاع مارس الان حذفته لكي يتم الفهم وارفقت مرفق جديد افتطاع مارس.rar

شكرا استاذ على الالتفاتة الطيبة موضوع وهو تعديل على كود اقتطاع الانخراط بالاصح العامل الذي يدفع المبلغ 3000 خلال جانفي او فيفري او افريل او ماي او جوان يستنثني من الاقتطاع خلال شهر مارس و جويلية الكود Private Sub cmd_Pay_installments_Click() On Error GoTo err_cmd_Pay_installments_Click ' .......................... الشطر الاول اقتطاع القروض Dim rst As DAO.Recordset 'Cridi and Elec Payments Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans Where [Payment_Month]=CDATE('" & Me.txtMonth & "')") rst.MoveLast: rst.MoveFirst Rc = rst.RecordCount a1 = 0 'just a flag a2 = 0 'jusf a flag If Rc = 0 Then: MsgBox " لا توجد إقتطاعات لشهر " & Format(Me.txtMonth, "mmmm") & " " & Year(Me.txtMonth), vbInformation: Exit Sub If Len(rst!Payment_Made & "") = 0 And Not IsNull(rst!Loan_Made) Then Select Case MsgBox("هل تريد أن يتم توزيع الإقتطاعات لشهر " & Me.txtMonth, vbYesNo + vbQuestion + vbDefaultButton1) Case vbYes For i = 1 To Rc rst.Edit If rst!Nr >= 6 Then rst!Payment_Made = 0# Else If rst!Loan_Type = "Cridi" Then rst!Payment_Made = rst!Loan_Made rst!sadad = rst!Loan_Made rst!Loan_Remise = 0 End If If rst!Loan_Type = "Elec" Then rst!Payment_Made = rst!Loan_Made rst!sadad = rst!Loan_Made rst!Loan_Remise = 0 End If End If If rst!sadad.Value = True Then rst!wada3 = "تم التسديد" Else rst!wada3 = "لم يتم التسديد" End If TheSum = TheSum + Nz(rst!Payment_Made, 0) rst.Update rst.MoveNext Next i 'End Select 'GoTo I_am_Done ' ..........................الشطر الثاني اقتطاع الانخراط '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]='عون نظافه وتطهير')" Set rstE = CurrentDb.OpenRecordset("Select * From Employee Where " & myCriteria) rstE.MoveLast: rstE.MoveFirst Rc = rstE.RecordCount For i = 1 To Rc 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 TheSum = TheSum + Nz(rst!Payment_Made, 0) rst.Update rstE.MoveNext Next i rstE.Close: Set rstE = Nothing End If TheSum = Format(TheSum, "#,##0.00") MsgBox " " & "تم توزيع الإقتطاعات" & vbLf & vbLf & "مجموع الإقتطاعات = " & TheSum, , "إقتطاعات شهر" & FrenchMonth(Month(Date)) & Year(Date) I_am_Done: Case vbNo MsgBox "لم يتم توزيع الإقتطاعات" End Select rst.Close: Set rst = Nothing End If Exit Sub err_cmd_Pay_installments_Click: If Err.Number = 3021 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub ملاحظة : الكود ينتقل الى الاقتطاعات خلال شهري مارس وجويلية فقط الفورم FrmTransfer اول مرة عند فتحه عند دخول الشهر يذهب الى الاكواد عند الفتح اتمنى ايجاد حل في القريب العاجل 20250126.rar

للرفع

اساتذتي الكرام اذا كان الامر صعب لهذه الدرجة فاني اتنازل عليه والان كيف استثني عامل دفع مبلغ الانخراط كاملا يلزم الاقتطاع التلقائي خلال شهر 3و7 الاستثناء يكون في الشرط الثاني من الكود طبعا

هل من معين ربي يجازيكم

للرفع

فكيف ابخل عليك استاذي الكريم وأنا في أمس الحاجة الى الحل النموذجي الصحيح الكود به مشكلة بعد هذا الشرط If Month(Now()) = 3 Or Month(Now()) = 7 اولا : الكود عبارة عن جزئين الجزء الاول :هو اقتطاع القروض والكهرومنزلية خلال السنة باستثناء Nr اكبر او يساوي 6 تم الحل والحمد لله الجزء الثاني : هو اقتطاع الانخراط والمقدر ب 3000 للسنة خلال شهري مارس وجويلية كل على حدى بمبلغ 1500 خلال هاذين الشهرين يستمر انقطاع الواقع في الجزء الاول هنا وهو بيت القصيد يستنى Nr<6 "رقم الوظيفة" من انقطاع الانخراط والمقدر ب 1500 يعني الكود لايضيف سجل لهذه الفئة ملاحظة : المنخرط رقم 81 ورقم وظيفته 9 الذي استثني من اقتطاع القروض هنا ايضا يستنى من انقطاع الانخراط انظر ليس لديه سجل بالاحمر في الصورة