الاخوة الافاضل
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!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
هذا كود اخر يحل مشكلة باقى الاقساط ويعمل ولكن الاشهر متتالية
مطلوب التعديل فيه على اساس انه هناك متغير لعدد الاشهر
لو عدد الاشهر 2 يكون التقسيم كل شهرين وهكذا على اساس ان الدفع كل شهرين او ثلاثة او اربعة وهكذا
مطلوب ضرورى بارك الله فيكم