طاهر اوفيسنا

شكرا لك استاذ kaser906 على المساعدة ولكن السؤال المطروح : ليش ما زاد طول حجم الاعمدة الى الاسفل عند وجود طفل واحد كما في الصورة

السلام عليكم اساتذة الكرام ممكن مساعدة بخصوص فتح تقرير face2 اي عند التفصيل يكون : مثلا طفلا واحدا يتقلص التفصيل ويزيد ارتفاع التذييل وعندما يكون 10 اطفال او اكثر يزيد ارتفاع التفصيل ويتقلص التذييل المهم يكون حجم ملائم وخاصة عند طفل او اثنين شهادة عائلية.rar

شكرا هدية ممتارة - هل يضيف كل سنة مدة اجازة مستحقة تلقائيا - وهل يحتفظ بالرصيد القديم

يبدو ان مشكلتك في الاستعلام Qry_Current_Vacations وخاصة لما تم التجميع

نعم المشكلة في مصدر السجلات انظر التعديل vacation31012018.rar

العفو اخي استحقاق كامل باه نحسب به تاريخ المستحق للإجازة "الى غاية اخر السنة او بداية السنة الجديدة" Estehkak=DateSerial(Year([date-ins])+1;1;1) وهذا يحسبلك الى تاريخ اول يوم في السنة القادمة الجديدة أما Estehkak=DateSerial(Year([date-ins])+1;1;0) يحسب الى تاريخ اخر السنة طبعا في نفس السنة اما بالعام الأول كذالك PreD=Int((([Estehkak]-[date-ins])/30)*2.5) يحسب عدد الأيام التي من حق العامل خلال هذه المدة وهي معمولة للتسوية فقط مثال : عامل نصب يوم 2016/12/01 نحسب له الى غاية 2016/12/31 يـ 2.5 يوم واذا اكمل مدة عمل الى غاية 2017/12/31 تحسب له 32.5 يوم وهكذا ارجو اني وفقت في التوضيح

انظر التعديل لعله المطلوب CALCUL1.rar

استاذي الكريم جعفر الم يوجد فكرة تصحح ذالك ؟ Desktop.rar

موضوعي نسي ام تناسيا أساتذة

وهو كذالك اساتذتي الكرام شكرا لكم بارك الله فيكم يبقى كيقية اعداد الورقة وضبطها سأقوم بها

شكرا لك استاذ جعفر حل مبدئ جميل ويبقى ان ننتظر الحل النهائي

للرفع

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

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

شكرا لك استاذ جربت ماأشرت له ومانفع اليك المرفق للتعديل التقرير المقسم.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