طاهر اوفيسنا

شكرا لك استاذ جربت ماأشرت له ومانفع اليك المرفق للتعديل التقرير المقسم.rar

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

للرفع

هل من تعديل من طرفك استاذ جعفر او فكرة ما تخص ذالك مع العلم ان نوع البيانات حقل Cridi_ID في جدول CRIDI رقمي 2018.rar

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