طاهر اوفيسنا

أساتذتي لقد بسطت البرنامج وتم حذف النموذج المعقد Frm_kassem_months اولا : الأن مازالت الزيادة الا في الشهر الأول من الإقتطاع فقط في التقرير rptDiscountDetail نلاحظ حسب الصورة للعلم أن Remaining هي باقي الإقتطاعات Remaining: (Nz((SELECT SUM(nz((dateDiff( 'm' , IIF (([Forms]![FrmDiscountReport]![txtMonth] ) < DiscountStartDate, DiscountStartDate , ([Forms]![FrmDiscountReport]![txtMonth] )) FrmDiscountReport.rar

أساتذتي الكرام إذا وجدتم صعوبات في التعديل على البرنامج وحل المشكلة فرجاءا مساعدتكم بشتى الطرق الأخرى المهم انكم عرفتم البرنامج كيف يعمل وما أطلبه واي سؤال انا تحت أمركم للتوضيح واني واثق انه فيه 1000 حل ملاحظة : ليس بالضرورة الحفاظ على الفورم Frm_kassem_months المهم فورمات اخرى توصل لنفس الهدف

على فكرة وضعت الكود في الفورم Frm_kassem_months عند حدث في الحالي ولكن بقيت دار لقمان على حالها مشكلة الزيادة بقيت كما في الصورة

اخي جعفر بارك الله فيك صراحة مافهمت شيئا مما ذكر اعلاه وهذا الكود اين يوضع 'lets check if this Employee have a void dates vTotal_Amounts = Nz(DSum("[DiscountPerMonth]", "tbl_Avoid_Dates", "[Name_ID]= " & Me.txtEmployeeID), 0) vTotal_Months = Nz(DCount("*", "tbl_Avoid_Dates", "[Name_ID]= " & Me.txtEmployeeID), 0) txtToalModan = SSS_Cridi + SSS_ElectroMeng + SSS_OtherDiscount - vTotal_Amounts txtBagi = Nz([txtToalModan], 0) - Nz(txtToalMonthsDiscount, 0) والسؤال : هل مستحيل ان نصل الى حل ام كيف ؟

تفضل ملفك بعد التعديل combobox .rar

السلام عليكم اخي محمد طاهر الجدول ElectroMeng هو خاص بالأدوات الكهرومنزلية وتنطبق عنه كما في القروض له مبلغ مالي وبه قسط شهري ويقتطع حسب تاريخ البداية والنهاية لمدة 10 اشهر اما بخصوص الأزرار التي لاتعمل هاهي نسخة من البرنامج على أكسس 2003 على فكرة استاي اليست المشكلة في النموذج الفرعي FrmCridi_sub وخاصة عند الحدث في مربع النص DiscountStartDate Private Sub UpdateEndData() Dim Dcode As Integer Dcode = Switch([Cridi_ID] = 1, 10, [Cridi_ID] = 2, 10, [Cridi_ID] = 3, 10, [Cridi_ID] = 4, 8, [Cridi_ID] = 5, 2) DiscountEndDate = DateAdd("m", Dcode, [DiscountStartDate] - 1) DiscountPerMonth = [Cridi_Value] / Dcode txtDiscountPerMonth.Requery txtDiscountEndDate.Requery End Sub Private Sub DiscountStartDate_AfterUpdate() Call UpdateEndData End Sub ma.2015.rar

شكرا لك استادي الكريم طارق محمود وهو كذالك

لا أستاذ من غير ازالة الكود يعمل البرنامج عادي اذا دخلنا على الفورم FrmCridi وخصصنا مربع التحرير والسرد في القرض وعملنا له قرض 2 مثلا يظهر Msbox يطالبك بتسجيل تاريخ القرض اعمل لا ترى في الملاحظات نزعت كلمة >> تأخير الدفع 2 اشهر وبقيت قرض 2 لوحدها من هنا يشتغل البرنامج عادي لا داعي الى المسح في الجدول الذي اشرت اليه للتاكيد ادخل على الفورم Frm_kassem_months ولاحظ النتيجة

اهلا وسهلا استاذي الكريم البرنامج هو من اعدادي ولكن تمت تعديلات من طرف الأستاذ حسام الشامي وخاصة في هذا الفورم Frm_Kassem_months ولكن استاذي العزيز البرنامج إذا حذفت منه التعديلات التي اشرت لها في البداية يعمل البرنامج عادي وبصفة منتظمة ويتم الإقتطاع بإنتظام من البداية الى النهاية وبإمكانك تجربة ذالك من الفورم FrmCridi الى الفورم FrmDiscountReport ثم على التقارير rptDiscount و rptDiscountDetail للعلم ان هذا النموذج Frm_Kassem_months هو بمثابة للتوضيح ليس الا الشيء المهم هو في نموذج الإقتطاعات الشهرية FrmDiscountReport المستمد من الإستعلامات من qry_rptD_1 الى qry_rptD_6 ومن qry_rptDD_1 الى qry_rptDD_4 و qryDiscountReport و qryDiscountReport_ALL و qryDiscountReport_Contract و qryDiscountReport_OLD

وعليكم السلام أستاذي الكريم محمد طاهر اتشرف بوضع بصمات أناملك على موضوعي وشكرا على تعديلك للموضوع الذي لربما لم يفهمه من يريد مساعدتي في الحقيقة كنت قد نوهت في بداية الموضوع الى المساعدة ولا احد من الأستاذة قام بالرد سوى بالمساعدة او بالنصيحة ولكنك الوحيد الذي تفضلت بذالك فشكرا لك ودمت ذخرا وسندا لإخوانك اما بخصوص مشكلة البرنامج وهي : قبل إضافة الحدث في frm_Avoid_Dates كان البرنامج يعمل عاديا وبصفته منتظمة ولكن عند أدخال هذا التعديل عليه اصبح يوقف الإقتطاع الشهري الذي هو المطلوب ولكن يزيد في مبلغ القرض هذا غير مطلوب مثلا : كريمو 01 لديه قرض مالي خلال شهر يناير 2015 بمبلغ 20.000.00 دج اول إقتطاع له شهر فيفري 2015 لمدة 10 أشهر اي الى غاية نوفمبر 2015 هذا الأخير قام في شهر أفريل مثلا بطلب توقيف إقتطاع القرض لمدة شهرين ولتكن أفريل وماي 2015 يعني الإقتطاع تم خلال شهر فيفري ومارس وبقيت له 08 أشهر بداية الإقتطاع الثاني من شهر جوان 2015 الى غاية شهر جانفي 2016 هذا يعني ان شهر ديسمبر2015 و جانفي 2016 أشهر زيادة تعويضات عن شهري أفريل وماي 2015 المشكلة هنا هي زيادة مبلغ قيمة توقف الإقتطاع الى مبلغ القرض الرسمي اي زيادة مبلغ 4.000.00 الى مبلغ القرض وكلما يتم التوقيف اكثر تتم الزيادة أكثر في مبلغ القرض فمثالنا هذا : مبلغ القرض 20.000.00 والتوقف شهرين اصبح المبلغ 24.000.00 وهذا هو الخطأ الذي طلبت معالجته آمل اني قد وفقت ثانيا في طرح مشكلتي ولكم واسع النظر

السلام عليكم اخواني إدارة منتدى اوفيسنا رجاءا حذف كلمتي Bookmark and Share من نص الموضوع على الرابط التالي http://www.officena.net/ib/index.php?showtopic=60200 ليصبح الموضوع ماسبب زيادة مبلغ إيقاف الخصم الشهري الى مبلغ القرض

" لا إِلَهَ إِلا أَنتَ سُبْحَانَكَ إِنِّي كُنتُ مِنَ الظَّالِمِينَ "

للرفع وتعديل العنوان

89 مشاهد 01 محمل المرفق 00 الردود

52 مشاهدا ولا احد ترك بصماته

السلام عليكم كان البرنامج يعمل بصفة منتظمة ولكن عندما وقعت في مشكل توقيف إقتطاع القروض لسبب من الأسباب الملزمة عملنا كود في الفورم frm_Avoid_Dates Private Sub cmd_Do_Changes_Click() Dim rst As DAO.Recordset 'open the table for adding the dates Set rst = CurrentDb.OpenRecordset("select * From tbl_Avoid_Dates") 'loop the number of months, then add a new record for each month For I = 0 To Me.Number_Of_Months - 1 rst.AddNew rst!Name_ID = Me.Name_ID rst!Loan_ID = Me.Loan_ID rst!Avoid_Dates = DateAdd("m", I, Me.Month_From) rst.update Next I 'change the end date in Forms!FrmCridi!FrmCridi_sub!txtDiscountEndDate Forms!FrmCridi!FrmCridi_sub!txtDiscountEndDate = DateAdd("m", I, Forms!FrmCridi!FrmCridi_sub!txtDiscountEndDate) 'leave a remark of what we have done Forms!FrmCridi!FrmCridi_sub!Obsérvation = Forms!FrmCridi!FrmCridi_sub!Obsérvation & " >> " & _ "تأجيل الدفع لمدة " & I & " أشهر" 'clear the memory rst.Close: Set rst = Nothing End Sub في الفورم frm_Avoid_Dates تحدد شهر التوقيف ومدة التوقيف طبعا مدة معينة شهر او إثنين او أكثر فلاحظنا انه كلما تم ايقاف الخصم الشهري للقروض كلما زاد مبلغ شهر الخصم لمبلغ القرض مثلا مبلغ القرض 20.000.00 مقسم على 10 اشهر وتم ايقاف الخصم لمدة شهرين نجد ان مبلغ القرض اصبح 24.000.00 اي 4.000.00 هي ناتجة عن الشهرين التي تم فيهما إيقاف الخصم . المطلوب : ماسبب هذه الزيادة هل هو في الوحدة النمطية التي ادرجت مؤخرا ام ماذا . والصور توضح ذالك أرجو المساعدة وشكرا لكم ma.2015.rar

شكرا على الترحيب اخي بعد عملية الترحيب تأتي اكرام الضيف وهي المساعدة

اول مشاركة لي في هذا القسم ارجو المساعدة من ذوي الخبرة

السلام عليكم إخواني الأساتذة ربما اول موضوع اتطرق إليه عبر منتدى الأكسيل ارجو منكم مساعدتي المطلوب وفقا للنموذج Paie_Personnels.rar

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

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

شكرا لك أخي يبدو ان الحدث به خلل عند اضافة سجل به شخص جدبد يظهر هذا الميساج كما في الصورة

وهو كذالك نتوكل على الله

اخي العزيز يوسف السلام عليكم ورحمة الله تعالى وبركاته وجمعة مباركة عليك وعلينا وعلى كافة أمة الحبيب المصطفى احيي فيك الروح الأخوية فشكرا لك على كل المجهودات وإتاحة فرصة من وقتك الثمين لمساعدتنا فيما يخص الطلب : النموذج هو عبارة على إدخال سجلات يعني لما نكون ندخل سجلات طلبات من قطع أرضية خاصة بالفلاحة والأسماء بكثرة وساعات تكون متكررة هذا هو الهدف المطلوب لتفادي ذالك والتكرار يكون في إسم ولقب الشخص وساعات تكون نفس الأسماء والألقاب هنا نذهب للتفرقة في إسم الأب أو تاريخ مكان الميلاد مثلا : صدوقي الطاهر بن علي المولود في 1982/02/01 صدوقي الطاهر بن علي المولود في : 1986/07/08 هذا ليس تكرار يكون MsgBox يعلمني بان هذا الشخص سجل سابقا وفي السجل رقم ..... هل تريد إضافته ام عدم إضافته إذا تيقنت بأنه نفس الشخص اختار عدم الإضافة وإذا كان العكس فأختار إضافة واما بالنسبة لتعديلك مؤخرا فإنك قيدت الإسم الكامل برقم الشخص وهذه مشكلة أما بالنسبة للطلب الثاني فهو مطلوب آمل اني قد وفقت في توضيح الغموض الحاصل خلاصة : كل شخص يستفيد برقم قطعة واحدة من ضمن مجموعة المحيطات اي لايمكن الإستفادة باكثر من رقم قطعة ارضية

مشكور أستاذ على النصيحة ولكن للأسف لايوجد لاسجل مدني ولا رقم قومي صحيح ربما تكون فيه تشابه في العديد من الأسماء والألقاب بواسطة همزة او غيرها وهذا منطقيا لأن اي مبرمج لما يبرمج شيء يحوزه من شتى النواحي ولكن : خلينا في مثالنا هذا ايمكن العمل وفقا للصورة اعلاه ؟ ام لا ومن بعد نعمل إستعلام به إكتشاف كل الأسماء المتقاربة والمتشابه عند الحقل nom In (SELECT [nom] FROM [tblInfo] As Tmp GROUP BY [nom] HAVING Count(*)>1 )