مطلوب تعديل على هذا الكود

الاخوة بارك الله فيكم

هذا كود تقسيم الاقساط على الاشهر وشغال تمام ولكن تاتى الاشهر متتالية

المطوب وضع متغير للاشهر يعنى لو الرقم 2 يتم زيادة الشهر شهرين وهكذا اول قسط 1/2 يبقى تانى قسط 1/4 ويكون الرقم متغير على حسب الادخال

Private Sub ÃãÑ149_Click()
On Error Resume Next
Dim i As Integer
Dim newdate As Date
Dim z As String
Dim rst As DAO.Recordset



Set rst = CurrentDb.OpenRecordset("Trabet_Month", dbOpenDynaset)
If Me.Bakey Mod Me.PriceDofa > 0 Then
z = Int(Me.Bakey / Me.PriceDofa)
Else
z = Int(Me.Bakey / Me.PriceDofa) - 1
End If


For i = 0 To z
newdate = DateAdd("m", i, Me.Start)
 rst.AddNew

rst!ID = Me.ID
rst!Date = newdate
rst!iD2 = i + 1
If i = z And z = Int(Me.Bakey / Me.PriceDofa) Then
rst!Price_Dofa = Me.Bakey Mod Me.PriceDofa
Else
rst!Price_Dofa = Me.PriceDofa
End If

rst.Update
Next i
DoCmd.Requery

End Sub