اريد كود توزيع عدد الدفعات حسب تحديد العدد والحاقها بجدول اخر

[mostafaatiya]

يوجد لديا جدولين جدول به اسماء العملاء 

وجدول اخر يتم فيه توزيع الدفعات وهو مربوط بكود العميل 

اريد حين اقوم بتحديد المبلغ مثلا 2500

واقوم بتحديد الدفعات مثلا ( 5 ) دفعات 

يتم توزيع ( 5 ) دفعات في جدول الدفعات ( يتم الحاق 5 سجلات )

ويعتمد هذا علي تحديد عدد الدفعات حسب التحديد 

ولكم جزيل الشكر والتقدير 

صورة توضحية

انشاء.rar

[محمد أبوعبدالله]

السلام عليكم ورحمة الله وبركاته

تفضل اخي الكريم

Private Sub أمر10_Click()

Dim xxx As Double
    xxx = Val(Me.text1) / Val(Me.colm1.Column(0))
    
    Dim rst As DAO.Recordset
    
    mySQL = "Select * From pay"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
    For i = 1 To Me.colm1
    
        rst.AddNew
        rst!codec = Me.codec
        rst!elmblg = xxx
        rst!codeelcst = i
        rst.Update
    Next i
    
    rst.Close: Set rst = Nothing
   
        If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then Exit Sub
        DoCmd.GoToRecord acDataForm, Me.Name, acNext
    

End Sub

انشاء.rar

تحياتي