كريمو2

لقد انزلته 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

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

بعد إذن الإساتذة طبعا لأننا تعلمنا منهم أنظر المرفق اذا كان هو طلبك وهو حدث في مربع النص المواليد بالنموذج طلب بيانات.rar

Shivan Rekany ... شكرا لك استاذي العزيز

الصور توضح المشكل v2برنامج التقسيط.rar

السلام عليكم اساتذتي الكرام هذا الكود من انتاج الأستاذ جعفر حفظه الله ورعاه بس لما غيرت به شيء بسيط اصبح لايقوم بالتوزيع كما هو مطلوب Private Sub UpdateEndData() Dim Dcode As Integer 'since we are using the calendar, we will get the day, month, and year, 'although we only need the month and the year, and that is what this fields Format shows, mmmm\-yyyy 'but for easyness for the search later, we will assign the day always as 1 If Len(Me.AwardMonth & "") <> 0 Then Me.AwardMonth = DateSerial(Year(Me.AwardMonth), Month(Me.AwardMonth), 1) End If Me.DiscountStartDate = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate), 1) Dcode = Switch([Cridi_ID] > 0, 10) DiscountEndDate = DateAdd("m", Dcode, [DiscountStartDate] - 1) Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate) + 1, 0) DiscountPerMonth = (([Cridi_Value] - [Mont_Spés]) * [Qte]) / Dcode 'add the loan Records to tbl_Loans Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans") 'rst.MoveLast: rst.MoveFirst For I = 0 To Me.CmdCridi.Column(0) - 1 rst.AddNew rst!EmployeeID = Me.EmployeeID rst!Loan_ID = Me.ID rst!Loan_AwardMonth = Me.AwardMonth rst!Payment_Month = DateAdd("m", I, Me.DiscountStartDate) 'add the months, or use the next line 'rst!Payment_Month = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate) + I, 1) rst!Loan_Cridi = Me.txtDiscountPerMonth 'rst!Payment_Made = 'to be used each time a pyment is made rst!Loan_Type = "Cridi" rst!Remarks = Me.CmdCridi.Column(1) rst.Update Next I rst.Close: Set rst = Nothing txtDiscountPerMonth.Requery txtDiscountEndDate.Requery 'Auto_ID, Auto_Date, EmployeeID, Loan_ID, Loan_AwardMonth, Payment_Month, Loan_Cridi, Payment_Amount, Payment_Made, Remarks 'EmployeeID 'Loan_ID 'Loan_AwardMonth 'Payment_Month' 'Loan_Cridi 'Payment_Amount 'Payment_Made 'Remarks End Sub Beriod ولما غيرت تقسيم 10 على مربع نص به عدد وهو Private Sub UpdateEndData() Dim Dcode As Integer 'since we are using the calendar, we will get the day, month, and year, 'although we only need the month and the year, and that is what this fields Format shows, mmmm\-yyyy 'but for easyness for the search later, we will assign the day always as 1 If Len(Me.AwardMonth & "") <> 0 Then Me.AwardMonth = DateSerial(Year(Me.AwardMonth), Month(Me.AwardMonth), 1) End If Me.DiscountStartDate = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate), 1) Dcode = Switch([Cridi_ID] > 0, [Beriod]) DiscountEndDate = DateAdd("m", Dcode, [DiscountStartDate] - 1) Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate) + 1, 0) DiscountPerMonth = (([Cridi_Value] - [Mont_Spés]) * [Qte]) / Dcode 'add the loan Records to tbl_Loans Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans") 'rst.MoveLast: rst.MoveFirst For I = 0 To Me.CmdCridi.Column(0) - 1 rst.AddNew rst!EmployeeID = Me.EmployeeID rst!Loan_ID = Me.ID rst!Loan_AwardMonth = Me.AwardMonth rst!Payment_Month = DateAdd("m", I, Me.DiscountStartDate) 'add the months, or use the next line 'rst!Payment_Month = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate) + I, 1) rst!Loan_Cridi = Me.txtDiscountPerMonth 'rst!Payment_Made = 'to be used each time a pyment is made rst!Loan_Type = "Cridi" rst!Remarks = Me.CmdCridi.Column(1) rst.Update Next I rst.Close: Set rst = Nothing txtDiscountPerMonth.Requery txtDiscountEndDate.Requery 'Auto_ID, Auto_Date, EmployeeID, Loan_ID, Loan_AwardMonth, Payment_Month, Loan_Cridi, Payment_Amount, Payment_Made, Remarks 'EmployeeID 'Loan_ID 'Loan_AwardMonth 'Payment_Month' 'Loan_Cridi 'Payment_Amount 'Payment_Made 'Remarks End Sub Beriod اصبح يقسم القسط على شهر واحد فقط بدلا من الشهر الذي يكتب في مربع النص Dcode = Switch([Cridi_ID] > 0, 10) Dcode = Switch([Cridi_ID] > 0, [Beriod]) أرجو المساعدة

للرفع

السلام عليكم اساتذتي الكرام ان شاء الله تكونو بالف خير يارب طلبي هو عندي فورمين الاول ELec_Nev وبه اضافة الاجهزة وبه الكمية Qtte اما الفورم الثاني وهو فورم توزيع الاجهزة على المشترين FrmCridi وبه الكمية ايضا Qte المطلوب عند شراء جهاز وتحديد الكمية المباعة في الفورم (2)تنقص القيمة تلقائيامن الكمية الموجودة في الفورم (1) مع ظهور ميساج بالباقي عند كتابة الكمية برنامج التقسيط.rar

للرفع ......

شكرا لكم جميعا على المساعدة والان Unmhsop: DSum("aja_B";"TB_Ath6rary";"IDmozf=" & [IDmozf] & "And ejazaID>200") المطلوب زرع معادلة Unmhsop في المعادلة ConH بعد nz ConH:IIf(IsNull([aja_B]);"";Nz(DSum("[aja_B] ";"TB_Ath6rary";"[IDmozf] = " & ([IDmozf]) & " And [strdate_B]<= # " & [strdate_B] & "#");0))

شكرا استاذ للأسف الشديد لما طبقتها وجدتها لم تفي بالحل اللازم اي قبل شهر 7 يرجع مربع النص يساوي 0 وهذا خطأ والصحيح هو ان تبقى قيمة السنة السابقة * 50 واذا حلت السنة الجديدة وفي شهر 7 بالضبط تزيد تلقائيا 50 يوم فكيف التعديل ؟