ربط توزيع الاقساط مع المدة

[waleed907]

السلام عليكم ورحمه الله وبركاته

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

في نموذج المستاجرين يوجد هناك سعر الايجار وعدد الدفعات وقيمة القسط وتاريخ اول دفعة و واجهت المشكلة مع الدفع كل 6 او 3 او 4 او 12 شهر

فمثلا سعر الايجار 15000 ريال  وعدد الدفعات 2 قيمة القسط الايجار 7500 ريال تاريخ اول دفعة 01/01/1435 من المفترض انه بعد توزيع الاقساط ان يكون تاريخ اول قسط 01/01/1435 وثاني قسط يستحق بعد 6 اشهر ويكون التاريخ 01/07/1435 او حسب مدة الدفع المدخلة اما 6 او 3 او 4 او12 شهر ولكن لم اتمكن من ربط هذا الامر مع توزيع الاقساط لذا ارجو ممن لدية الطريقة الايبخل علينا بذلك.

واتمنى الفكرة وصلت لمن يقرا الموضوع

ركائز الوادي للعقارات.rar

[رمهان]

حياك الله اخ وليد

قبل ان اشارك باجابة هناك تنبيه في تحليل النظام

لو افترضنا انه تم توزيع الاقساط كدفعتين والتي تمثل 6 اشهر وحيث دفعة حاليا ودفعة بعد 6 اشهر ! 

فماذا عن الدفعات القادمة والمستمرة اذا استمر المستاجر اكثر من سنة ! كيف تريد عملها !

تحياتي

[waleed907]

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

الا اذا كان لديك طريقة افضل من ذلك

حيث ان هذه الطريقة التي سوف ابني عليها طريقة وضع تنبية باستحقاق الايجار 

تم تعديل ديسمبر 15, 2015 بواسطه waleed907

[رمهان]

امسح كل الاكواد خلف زر توزيع الايجارات وضع الكود التالي وليصبح :

Private Sub أمر88_Click()
Me.km.SetFocus: DoCmd.GoToRecord , , acNewRec
For ii = 0 To الاشهر - 1
Me.km![رقم القسط] = ii
Me.km![الاستحقاق] = DateAdd("m", ii * [يدفع كل], [تاريخ اول دفعة])
Me.km![الايجار] = الايجار
DoCmd.GoToRecord , , acNext
Next
End Sub

بالتوفيق

[waleed907]

الاخ / رمهان  جزاك الله خير على عملك وهذا المطلوب

ولكن ممكن تمنع  اعادة  تجزئة الاقساط  بحيث يظهر هذا العميل تم توزيع له مسبقا

[waleed907]

هل من الممكن عدم توزيع الاقساط مرة اخرى بعد توزيعها من اول مرة وجعل الاقساط تبداء من رقم 1 بدلا عن صفر

على نفس الكعادلة السابقة

[رمهان]

تفضل :

Private Sub أمر88_Click()
If Me.km.Form.RecordsetClone.RecordCount > 0 Then MsgBox ("اسف .. هناك توزيع سابق !!"): Exit Sub
Me.km.SetFocus: DoCmd.GoToRecord , , acNewRec
For ii = 1 To الاشهر
Me.km![رقم القسط] = ii
Me.km![الاستحقاق] = DateAdd("m", (ii - 1) * [يدفع كل], [تاريخ اول دفعة])
Me.km![الايجار] = الايجار
DoCmd.GoToRecord , , acNext
Next
End Sub

بالتوفيق

[waleed907]

شكرا لك  اخي  رمهان وجزاك الله خيرا على هذا العمل

كانت اجابتك لي شافية كافية

وفي الصميم

انتهى الموضوع 

[رمهان]

العفو ومتمنيا لك التوفيق !