حساب القسط الاخير

[haider1430]

السلام عليكم :

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

السؤال هنا ان البرنامج لا يحسب القسط الاخير اذا كان جزء متبقي من القسط كما هو مرفق

 

وشكرا لكم

3.rar

[haider1430]

غريبه شكل الجماعه مسافرين

[jjafferr]

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

 

انا لم اتدخّل في البرنامج/الكود ، ولا في تقريب الارقام ، إلا في التالي:

.

وهذا هو الكود

Private Sub أمر8_Click()
Dim strSQL As String
    Dim Add_it As Double

strSQL = "DELETE G2.[رقم القسط], G2.رقم, G2.التاريخ, G2.المبلغ, G2.[المبلغ كتابه] FROM G2 WHERE (((G2.رقم)=[FORMS]![f1]![رقم]));"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings False
Me.Requery
DoCmd.GoToRecord , , acFirst
For i = 0 To Forms![f1]![qastno] - 1
Me.رقم = Forms![f1]![رقم]
Me.التاريخ = DateAdd("m", i, Forms![f1]![Date])
Me.المبلغ = Round(Forms![f1]![المبلغ] / Forms![f1]![qastno], 2)
    Add_it = Add_it + Nz(Me.المبلغ, 0)
Me.المبلغ_كتابه = NoToTxt(Me.المبلغ, "ريال سعودي", "سنتيم")
DoCmd.GoToRecord , , acNext
Next

    'Debug.Print Forms![f1]![المبلغ] & " >> " & Add_it
    If Add_it <> Forms![f1]![المبلغ] Then
        DoCmd.GoToRecord , , acNewRec
        Me.رقم = Forms![f1]![رقم]
        Me.التاريخ = DateAdd("m", i, Forms![f1]![Date])
        Me.المبلغ = Forms![f1]![المبلغ] - Add_it
        Me.المبلغ_كتابه = NoToTxt(Me.المبلغ, "ريال سعودي", "سنتيم")
    End If

DoCmd.Requery
End Sub

.

جعفر

[haider1430]

 

عيني عليك بارده ما شالله عليك تبرد القلب

[jjafferr]