تكرار النسخ

Private Sub Command9_Click()
Dim rep As Integer, i As Integer
rep = Val(Me.Text10)
For i = 1 To rep
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
Me.sform.SetFocus
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Next i
End Sub

db22-kemas.rar

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