cudi قام بنشر يونيو 22, 2023 مشاركة قام بنشر يونيو 22, 2023 السلام عليكم اخواني الافاضل كيف لي تقسيط المبلغ ، لما العميل يريد القسط الاول مختلف عن باقي الاقساط مثلا : 1045 $ / 10 اشهر = 104.5 $ لكل شهر ، هو يريد قسط الاول يكون 145 $ باقي الاقساط على 100 $ يعني العملية سوف يكون 1045 $ - 145 $ = 900 $ / 9 = 100 $ لكل باقي الاشهر ، لكن كيف لي تصحيح هذا الكود الادنى Private Sub cmdInstall_Click() On Error Resume Next Dim rst As DAO.Recordset Dim I As Integer Set rst = Me.RecordsetClone Dim Sale_Cost As Double, FirstQist As Double, Number_Of_Installments As Integer Dim Fisrt_Date_of_Payment As Date If IsNull([Forms]![frmInstall]![InstallNum]) Or [Forms]![frmInstall]![InstallNum] = 0 Then Exit Sub ElseIf IsNull([Forms]![frmInstall]![SaleInstallDate]) Then Exit Sub Else Sale_Cost = Forms![frmInstall]![InstallNet] Fisrt_Date_of_Payment = Forms![frmInstall]![SaleInstallDate] Number_Of_Installments = Forms![frmInstall]![InstallNum] FirstQist = Forms![frmInstall]![FirstQist] If FirstQist > 0 Then For I = 1 To Number_Of_Installments rst.AddNew rst![InstallID] = Forms![frmInstall]![InstallID] rst![InstallNum] = I rst![InstallAmount] = FirstQist rst![InstallAmount] = Round((Sale_Cost - FirstQist) / Number_Of_Installments, 2) rst![InstallDate] = DateAdd("m", I - 1, Fisrt_Date_of_Payment) rst.Update Next I rst.Close: Set rst = Nothing End If For I = 1 To Number_Of_Installments rst.AddNew rst![InstallID] = Forms![frmInstall]![InstallID] rst![InstallNum] = I rst![InstallAmount] = Round(Sale_Cost / Number_Of_Installments, 2) rst![InstallDate] = DateAdd("m", I - 1, Fisrt_Date_of_Payment) rst.Update Next I rst.Close: Set rst = Nothing End If End Sub رابط هذا التعليق شارك More sharing options...
cudi قام بنشر يونيو 22, 2023 الكاتب مشاركة قام بنشر يونيو 22, 2023 شكرا جزيلا لكم لقد قمت بحل الموضوع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها