طاهر اوفيسنا

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

بعد إذن الإساتذة طبعا لأننا تعلمنا منهم أنظر المرفق اذا كان هو طلبك وهو حدث في مربع النص المواليد بالنموذج طلب بيانات.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 يوم فكيف التعديل ؟

شكرا ابو عبد الله على الرد المقصود بالسنة "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 وسبب الظهور انه مرتبط بجدول في نموذج "تنبيه" ارجو المساعدة وشكرا

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