Taher DZ

للرفع

السلام عليكم اساتذتي الكرام ان شاء الله تكونو بالف خير يارب طلبي هو عندي فورمين الاول 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 يوم فكيف التعديل ؟

شكرا ابو عبد الله على الرد المقصود بالسنة "Année" رقم ناتج عن : اي : Année=DateDiff("yyyy";Forms!Employé_en_arabe!Estehkak;[strdate_B])+1 Estehkak=DateSerial(Year([hiredate])+1;1;1) TotLoh=IIf(Month([Date])=7;(Year([Date])*50)+[Forms]![Employé_en_arabe]![PreD];0) PreD=Int((([Estehkak]-[hiredate])/30)*4.16) علما ان دالة iif لم تفي بالغرض وكانت النتيجة #Name? =IIf(Month([Date])=7;[Année]*50+[Forms]![Employé_en_arabe]![PreD];0) والمرفق يوضح ذالك حساب اجازة.rar

لم تصلح الفكرة والناتج كان 100850

نفس المشكلة اخي

الملف معطوب اخي ممكن رفعه من جديد

شكرا ابو عبد الله على الرد If Month(Date) = 7 then M = year(Date)* 50 End If ولكن هل يوضع في حدث ام اين وكيف يتم تنسيقها مع بقية المعادلة =[M]![Forms]![Employé_en_arabe]![PreD]

السلام عليكم اساتذي الكرام كيف لي ان اعدل على هذا المعادلة =[Année]*50+[Forms]![Employé_en_arabe]![PreD] حيث يكون ضرب السنة في 50 الا بحلول شهر جويلية من كل سنة فقط ارجو المساعدة

وهو كذالك استاذي شكرا لك

لم تصلح الفكرة استاذ وثانيا أحبذ عند الحفظ يكون اسم التقرير بpdf مربوط بالتاريخ مثلا rptTransfer_01_04_2017

اليك المرفق استاذي 2017.rar

السلام عليكم اساتذي الكرام ظهر لي مشكل مؤخرا وهو عند الضغط الى تصدير تقرير الى pdf تظهر مشكلة Private Sub Command10_Click() DoCmd.OutputTo acOutputReport, "rptTransfer" & txtMonth, acFormatPDF, strPathAndfile, True End Sub كيف يتم تصحيحها

شكرا استاذي الكريم هل ما تم اضافته هو هذا Private Sub strdate_B_Click() Work_Start_history_B = d1 'Me.findate_B = Me.aja_B + Me.strdate_B - 1 'Me.findate_B.Value = Me.findate_B '' Me.Work_Start_history_B.Value = Me.Work_Start_history_B Me.Refresh End Sub اخي كمال الإستعلام موجود فيه الكود ويعمل بشكل جيد لو ترجع الى الوحدة النمطية fDate_Return لتجد ان بداية العمل تكون بإستثناء ايام الجمعة والسبت اي عندما تنتهي الاجازة يوم الخميس فالكود يضيف لك يومين اي الجمعة والسبت وتكون البداية يوم الاحد

هل من مساعدة

للرفع

السلام عليكم أساتذتي الكرام لديا مشكلة وهو عدم ظهور تاريخ مباشرة العمل بالجدول TB_Ath6rary علما اني استعملت الكود التالي في حدث عند النقر عند الفورم strdate_B ومانفع Private Sub strdate_B_Click() Me.findate_B = Me.aja_B + Me.strdate_B - 1 Me.findate_B.Value = Me.findate_B Me.Work_Start_history_B.Value = Me.Work_Start_history_B Me.Refresh End Sub تاريخ مباشرة العمل.rar وسبب الظهور انه مرتبط بجدول في نموذج "تنبيه" ارجو المساعدة وشكرا

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

اهلا بك استاذ ابو ادم بلد المليون ونصف شهيد الجزائر

هذا الكود اعطى للتقريب للأعلى فكيف يكون للتقريب للأسفل اي اعطى 1364 وليس 1363

اجل استاذي الكريم يعني بمعدل 4.16 يوم اجازة عن كل شهر عمل مؤدى واذا رجعنا للمرسوم المنظم لذالك فنلاحظ كما في الصورة الارجح ان يكون التقريب الى الاسفل 1363

اهلا استاذ شيفان لاحظت انك زدت مايلي : اي 2 شهر و 14 يوم = 10.40 من اين اقتبست بهذا ؟ تاريخ التنصيب عند العامل كريمو 5 بداية توظيفه 1989/12/09 اي لديه في شهر ديسمبر 1989 21 يوم عمل بمثابة 3 ايام اجازة عنها

شهر له 4.16 شهرين له 4.16 × 2 = 8.32 بتقريب 9 14 يوم له 2.08 لاحظ المرفق من تصميم استاذ رمهان في هذا المنتدى حساب اجازاة ثانية1.rar