طاهر اوفيسنا

المشكلة في مربع تحرير وسرد اي عند ادخال القرض وعندما اضفت عمود منظم ثاني وفيه مبلغ القرض وقع المشكل في مربع التحرير والسرد CmdCridi cridi_id = الذي مصدره رقم وانا استبدلته ب Nom_Cridi = مصدره نص وقع المشكل في تاريخ بداية الخصم Dcode = Switch([Cridi_ID] = 1 Or 29, [Payment_Period])

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

السلام عليكم اخوتي الكرام ممكن مساعدة بخصوص اختيار قيمة من مربع تحرير وسرد مثلا اختار 'قرض1' قيمته '10.000.00 ' مدة السداد' 10 اشهر ------------- 01 وعند اختيار تاريخ بداية الخصم يقسم المبلغ على العدد الموجود في مدة السداد-----------02 كما في الصورة 2018.rar

شكرا لك استاذي يعني التعديل تم وفقا تم تعيين مربع نص مخفي iTransfer Private Sub cmdDiscount_CO4_Click() If Len(txtMonth) = 0 Or IsNull(txtMonth) Or Not IsDate(txtMonth) Then MsgBox "Error !! SELECT A VALID Date." txtMonth.SetFocus Exit Sub End If On Error GoTo Err_cmdDiscount_CO4_Click 'DoCmd.OpenReport "rptDiscount", acPreview, , "((TheSum > 0)AND (transfer = 'مكتب4'))" 'DoCmd.OpenReport "rptDiscount", acPreview, , "((TheSum > 0) AND (transfer = 'مكتب4'))" 'DoCmd.OpenReport "rptDiscount", acPreview, , "[transfer] = 'مكتب4'" Me.iTransfer = "مكتب4" DoCmd.OpenReport "rptDiscount", acPreview 'DoCmd.OpenReport "rptDiscount", acPreview 'Reports!rptDiscount.Filter = "[Transfer]='مكتب4'" 'Reports!rptDiscount.FilterOn = True Exit_cmdDiscount_CO4_Click: Exit Sub Err_cmdDiscount_CO4_Click: If Err.Number = 2501 Then Resume Exit_cmdDiscount_CO4_Click Else MsgBox Err.Description Resume Exit_cmdDiscount_CO4_Click End If End Sub شكرا لك اخ الجموعي Me.Transfer = Me.Transfer.ItemData(3) طريقتك ايضا ادت الى نفس الحل ولكن تم التعديل على الإستعلام لعدم ظهور المبالغ التي تحمل مبلغ 0.00 Private Sub cmdDiscount_CO4_Click() If Len(txtMonth) = 0 Or IsNull(txtMonth) Or Not IsDate(txtMonth) Then MsgBox "Error !! SELECT A VALID Date." txtMonth.SetFocus Exit Sub End If On Error GoTo Err_cmdDiscount_CO4_Click Me.Transfer = Me.Transfer.ItemData(3) 'DoCmd.OpenReport "rptDiscount", acPreview, , "((TheSum > 0)AND (transfer = 'مكتب4'))" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_0" Exit_cmdDiscount_CO4_Click: Exit Sub Err_cmdDiscount_CO4_Click: If Err.Number = 2501 Then Resume Exit_cmdDiscount_CO4_Click Else MsgBox Err.Description Resume Exit_cmdDiscount_CO4_Click End If End Sub

للرفع

اهلا بك استاذي العزيز جعفر اتمنى ان تكون في صحة جيدة يارب المطوب فتح التقرير على تصفية حسب كل مكتب مثلا حسب الصورة مع العلم اني انشئت 10 استعلامات وكان المطلوب ولكن اردت ان يكون الإستعلام واحد ويؤدي نفس الوظيفة اي بالتصفية

السلام عليكم أساتذتي الكرام " حسبrptDiscount" في المرفق وجدت مشكلة في فتح تقرير " في جدول Employee" حسب كل مكتب " Transfer" التصفية بواسطة مربع نص تصفية.rar

اوضح المطلوب او ارسل صورة توضيحية المرفق وحدة لايفهم منه المطلوب في اعتقادي ان كل الاساتذة مافهمو طلبك ملاحظة : لاتيأس كل مشكلة ولها حل بحول الله

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

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

لقد انزلته 3 مرات ولم اجد التعديل المطلوب مع العلم اني استعمل اكسس 2010

ايه ولكن المرفق الذي ارسلته لي ليس هو عليه التعديل

المرفق لا يحتوي على المطلوب

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

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

السلام عليكم اساتذتنا الكرام المطلوب بداية ترقيم السجلات في التقرير بداية برقم 1 الى 20 حسب عدد السجلات الموجود الى اخر الصفحات مع مراعات مجموع كل صفحة على حدى الرقم التسلسلي في التقرير.rar

انتظر مساعدتكم اساتذة

لقد عالجت فكرة التفقيط بقي الترقيم التسلسلي في التقرير كل صفحة على حدى ابتداء من رقم 01 الى اخر سجل بالصفحة الاولى ثم يتم الترقيم الصفحة الثانية من 1 الى اخر سجل بنفس الصفحة وهكذا الى اخر الصفحات

استاذي العزيز ممكن اعادة النظر في طلبي

شكرا لك اخي شيفان على المساعدة والأن ممكن معالجة التفقيط بالفرنسية =NbEnLettres([TOTAL];"DA";"cm") & " " مع ظهور الترقيم بداية من 01 الى 20 في كل صفحة

اليكم المرفق ارجو التعديل عليه اولا الدخول على هذا النموذج ثم تخصيص ccp يفتح التقرير المراد التعديل عليه تقرير.rar

السلام عليكم إساتذتي الكرام المطلوب مساعدة بخصوص اظهار 20 سجل فقط في كل صفحة من التقرير مع ظهور العنوان بالأعلى والمجموع والامضاء بالأسفل في كل صفحة

أساتذتي الكرام تم الحل اعرف انكم مابخلتم غني ولكن ربما مافهمتم المطلوب 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]=#" & Me.txtMonth & "#") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount a1 = 0 'just a flag a2 = 0 'jusf a flag For I = 1 To RC rst.Edit 'check, maybe a manual payment is done, so don't over write it If Len(rst!Payment_Made_Cridi & "") = 0 And Not IsNull(rst!Loan_Cridi) Then rst!Payment_Made_Cridi = rst!Loan_Cridi rst!sadad = rst!Loan_Cridi If rst!sadad.Value = True Then rst!wada3 = "تم التسديد" Else rst!wada3 = "لم يتم التسديد" End If a1 = 1 End If If Len(rst!Payment_Made_Elec & "") = 0 And Not IsNull(rst!Loan_Elec) Then rst!Payment_Made_Elec = rst!Loan_Elec a1 = 1 End If rst.Update rst.MoveNext Next I '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 'check if payment is already entered, if it is, then skip this Record rst.FindFirst "[Loan_Type]='Other' 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!Loan_AwardMonth = Me.AwardMonth rst!Payment_Month = DateSerial(Year(Me.txtMonth), Month(Me.txtMonth), 1) 'rst!Loan_Cridi = Me.txtDiscountPerMonth 'rst!Loan_Elec= 'to be used in Elec loan Form rst!Loan_Other = 1000 'to be used in Other loan Form 'rst!Payment_Made = 'to be used each time a pyment is made rst!Loan_Type = "Other" rst!Remarks = "خصم من الراتب لإشتراك شهر " & Year(Me.txtMonth) & "/" & Month(Me.txtMonth) rst.Update End If rstE.MoveNext Next I rstE.Close: Set rstE = Nothing End If I_am_Done: 'clean up rst.Close: Set rst = Nothing 'show this message only if data are entered If a1 = 1 Or a2 = 1 Then MsgBox "هل تريد أن يتم توزيع الإقتطاعات لهذا الشهر " & Me.txtMonth End If Exit Sub err_cmd_Pay_installments_Click: If Err.Number = 3021 Then 'No Records, ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub

الحمد لله على عودة المنتدى . اين المساعدة

السلام عليكم اخواني الأساتذة ان شاء الله تكونو بالف خير يارب المطلوب اضافة هذا الكود الشرطي Me.Payment_Made_Cridi = Me.Loan_Cridi Me.sadad = Me.Loan_Cridi If Me.sadad.Value = True Then Me.wada3 = "تم التسديد" Else Me.wada3 = "لم يتم التسديد" End If DoCmd.RunCommand acCmdSaveRecord Forms!frm_Loans!txt1.Requery Forms!frm_Loans!txt2.Requery الى هذا 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]=#" & Me.txtMonth & "#") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount a1 = 0 'just a flag a2 = 0 'jusf a flag For I = 1 To RC rst.Edit 'check, maybe a manual payment is done, so don't over write it If Len(rst!Payment_Made_Cridi & "") = 0 And Not IsNull(rst!Loan_Cridi) Then rst!Payment_Made_Cridi = rst!Loan_Cridi a1 = 1 End If If Len(rst!Payment_Made_Elec & "") = 0 And Not IsNull(rst!Loan_Elec) Then rst!Payment_Made_Elec = rst!Loan_Elec a1 = 1 End If rst.Update rst.MoveNext Next I '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 'check if payment is already entered, if it is, then skip this Record rst.FindFirst "[Loan_Type]='Other' 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!Loan_AwardMonth = Me.AwardMonth rst!Payment_Month = DateSerial(Year(Me.txtMonth), Month(Me.txtMonth), 1) 'rst!Loan_Cridi = Me.txtDiscountPerMonth 'rst!Loan_Elec= 'to be used in Elec loan Form rst!Loan_Other = 1000 'to be used in Other loan Form 'rst!Payment_Made = 'to be used each time a pyment is made rst!Loan_Type = "Other" rst!Remarks = "خصم من الراتب لإشتراك شهر " & Year(Me.txtMonth) & "/" & Month(Me.txtMonth) rst.Update End If rstE.MoveNext Next I rstE.Close: Set rstE = Nothing End If I_am_Done: 'clean up rst.Close: Set rst = Nothing 'show this message only if data are entered If a1 = 1 Or a2 = 1 Then MsgBox "هل تريد أن يتم توزيع الإقتطاعات لهذا الشهر " & Me.txtMonth End If Exit Sub err_cmd_Pay_installments_Click: If Err.Number = 3021 Then 'No Records, ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub