عندي مشروع دكان هواتف بالأقساط ، أريد تقسيط المجموع الكلي (معدل)

[cudi]

عندي مشروع دكان هواتف بالاقساط

 

أريد تقسيط مجموع الكلي يطلع هنا على عددة أقساط

 مثلا سوف انقسم إلى 6 أقساط لازم يحسب من رقم 1 إلى 6 و مبلغ يحسب على 6 أقساط من النموذج الفرعي

تم تعديل فبراير 15, 2017 بواسطه jjafferr
تم تعديل العنوان ليوضح محتواه

[jjafferr]

السلام عليكم

 

قواعد المشاركة فى الموقع

اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

 

عنوان الموضوع لا يدل على محتواه ، لذلك قمت بتعديل عنوان الموضوع لعدم حذفه 

 

جعفر

[jjafferr]

تفضل

 

اجعل هذا الكود على زر (طبعا بعد ان تغير اسماء الحقول):

dim rst as dao.recordset

set rst=me.recordsetclone

Mobile_Cost = [قيمة الهاتف]
Fisrt_Date_of_Payment = [تاريخ او قسط]

for i=1 to [عدد الاقساط]

rst.addnew
	rst![رقم القسط] = i
	rst![قيمة القسط] = Mobile_Cost / [عدد الاقساط]
	rst![تاريخ الاستحقاق] = dateadd("d" , i-1 , Fisrt_Date_of_Payment)
rst.update

next i

rst.close : set rst = nothing

 

جعفر

[cudi]

شكرا جزيلا لك 

 

 

14 hours ago, jjafferr said:

 

[king5star]

اخى لو امكن وضع مثال فيكون لك جزيل الشكر .

[cudi]

أنا عملت على ذلك كود أنت ارسلت لي ، لكن أنا لم أكن أعمل عليها بشكل صحيح 

 ?هل تستطيع تصحيح علي برنامجي الخاص

لأن خيبرة على كسس ليست جيد جدا لحد الآن 

هذا هو المرفق 

 

On 2/15/2017 at 6:26 PM, jjafferr said:

 

Database2.rar

تم تعديل فبراير 18, 2017 بواسطه cudi

[jjafferr]

وعليكم السلام

 

شغلك تقريبا كان كامل

 

بما ان بعض البيانات تأخذها من النموذج الرئيسي ، فيجب تعديل الكود ليناسب مع ذلك ،

بالاضافة الى تغيير تاريخ الاقساط ليكون شهري:

Private Sub Command9_Click()
Dim rst As DAO.Recordset
Dim i

Set rst = Me.RecordsetClone

Mobile_Cost = Forms![SaleInvoiceF]![sale_total]
Fisrt_Date_of_Payment = Forms![SaleInvoiceF]![qist_date]
Number_Of_Installments = Forms![SaleInvoiceF]![qist_number]

For i = 1 To Number_Of_Installments

rst.AddNew
    rst![qist_invoice] = Forms![SaleInvoiceF]![sale_invoice]
    rst![qist_num] = i
    rst![qist_price] = Mobile_Cost / Number_Of_Installments
    rst![qist_first_date] = DateAdd("m", i - 1, Fisrt_Date_of_Payment)
rst.Update

Next i

rst.Close: Set rst = Nothing
    
End Sub

 

جعفر

594.Database2.accdb.zip

[cudi]

شكرا جزيلا لك أخي العزيز 

 

On 2/15/2017 at 6:26 PM, jjafferr said: