<div>
Gustav Brock provided a really nice function you can use and customize to suit your exact needs. 

<pre><code class="code-10 nolinks" id="code-20-42823908-1">Private Sub cmdDuplicate_Click()

 Dim rstSource As DAO.Recordset
 Dim rstInsert As DAO.Recordset
 Dim fld As DAO.Field

 If Me.NewRecord = True Then Exit Sub

 Set rstInsert = Me.RecordsetClone
 Set rstSource = rstInsert.Clone
 With rstSource
 If .RecordCount &gt; 0 Then
 ' Go to the current record.
 .Bookmark = Me.Bookmark
 With rstInsert
 .AddNew
 For Each fld In rstSource.Fields
 With fld
 If .Attributes And dbAutoIncrField Then
 ' Skip Autonumber or GUID field.
 ElseIf .Name = &quot;YourDateFieldName&quot; Then
 'Do something special with the date field here
 Else
 ' All other fields.
 ' Copy field content.
 rstInsert.Fields(.Name).Value = .Value
 End If
 End With
 Next
 .Update
 ' Go to the new record and sync form.
 .MoveLast
 Me.Bookmark = .Bookmark
 .Close
 End With
 End If
 .Close
 End With

 Set rstInsert = Nothing
 Set rstSource = Nothing

End Sub
</code></pre>
 
So your click event would simply run the command x number of times (the number entered -1)
</div>

<div>
I've been reading through the code and don't see how it knows how many time to copy the record. &nbsp;The field on the form that designates how many is txtDurationDays 
 
????
</div>

<div>
There is a modified version doing what you ask for: 
 
<a href="https://www.experts-exchange.com/questions/28940780/Access-Form-inserting-multiple-records-based-on-the-last-record-just-inserted.html?anchorAnswerId=41559338#a41559338" rel="ugc">Access Form inserting multiple records</a>
</div>

<div>
Gustav, I think the latest code provided is working with one exception. &nbsp;The date field as to be advanced plus 1 date for each pass.
</div>

<div>
As in my original posting add 

<pre><code class="code-1 nolinks" id="code-20-42824214-1">ElseIf fld.Name = &quot;FieldWithMoreOrLessFixedValue&quot; Then
</code></pre>
 
and then in there set the date field value using <a href="https://support.office.com/en-us/article/dateadd-function-63befdf6-1ffa-4357-9424-61e8c57afc19" rel="ugc">DateAdd()</a>, something like (aircode) 

<pre><code class="code-1 nolinks" id="code-20-42824214-2">rst.Fields(fld.Name).Value = DateAdd(&quot;yyyy&quot;, 1, frm(fld.Name).Value)
</code></pre>
</div>

<div>
Well, I assumed you could figure out yourself the remaining parts, but it would be like this: 
 

<pre><code class="code-10 nolinks" id="code-20-42824554-1">Private Sub ButtonCopy_Click()

 Dim rst As DAO.Recordset
 Dim fld As DAO.Field
 Dim frm As Form
 Dim Copies As Integer
 Dim Item As Integer
 
 Copies = Val(Me!txtNumberOfDays.Value) - 1
 
 If Copies &gt; 0 Then
 Set frm = Me ' Me.tblserviceitem_subform1.Form
 Set rst = frm.RecordsetClone
 For Item = 1 To Copies
 rst.AddNew
 For Each fld In rst.Fields
 If fld.Attributes And dbAutoIncrField Then
 ' Skip Autonumber or GUID field.
 ElseIf fld.Name = &quot;NameOfYourDateField&quot;
 ' Copy date field increased by one day.
 rst.Fields(fld.Name).Value = DateAdd(&quot;d&quot;, 1, frm(fld.Name).Value)
 Else
 ' Copy field.
 rst.Fields(fld.Name).Value = frm(fld.Name).Value
 End If
 Next
 rst.Update
 Next
 Set fld = Nothing
 Set rst = Nothing
 Set frm = Nothing
 End If
 
End Sub
</code></pre>
</div>

<div>
Gustav, I'm sorry I can't figure this out. &nbsp;But here is what I have now. &nbsp;Using this code it created 2 copies of the original but both copies were a day after the original record date (ScheduleDate) - &nbsp;If the original date was 3/12/2019 then I want the two copies to be 3/13/2019 and 3/14/2019. &nbsp;What am I doing wrong now? 
 

<pre><code class="code-10 nolinks" id="code-20-42824770-1"> Dim rst As DAO.Recordset
 Dim fld As DAO.Field
 Dim frm As Form
 Dim Copies As Integer
 Dim Item As Integer
 
 Copies = Val(Me!txtDurationDays.Value)
 
 If Copies &gt; 0 Then
 Set frm = Me ' Me.tblserviceitem_subform1.Form
 Set rst = frm.RecordsetClone
 For Item = 1 To Copies
 rst.AddNew
 For Each fld In rst.Fields
 If fld.Attributes And dbAutoIncrField Then
 ' Skip Autonumber or GUID field.
 ElseIf fld.Name = &quot;ScheduleDate&quot; Then
 ' Copy date field increased by one day.
 rst.Fields(fld.Name).Value = DateAdd(&quot;d&quot;, 1, frm(fld.Name).Value)
 Else
 ' Copy field.
 rst.Fields(fld.Name).Value = frm(fld.Name).Value
 End If
 Next
 rst.Update
 Next
 Set fld = Nothing
 Set rst = Nothing
 Set frm = Nothing
 End If
</code></pre>
 
Daniel, your line of code made two dupes but they both had the original date of 3/12/2019.
</div>

SteveL13

<div>
Now getting run-time error 3022. I think because it's trying to copy the PK field.
</div>

<div>
That is excluded here: 
 

<pre><code class="code-1 nolinks" id="code-20-42824973-1">If fld.Attributes And dbAutoIncrField Then
 ' Skip Autonumber or GUID field.
</code></pre>
What is the error message, please?
</div>

<div>
The changes you requested &nbsp;to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.
</div>

<div>
As a test I changed the field to not be a PK but left it as auto number. Seems to be working.
</div>

<div>
Yes. The code doesn't check for unique indexes to fail, only for the autonumber attribute.
</div>

<div>
<div class="content wysiwyg-content">
I have a form bound to a table that has several fields on it. &nbsp;One of them is a number field, standard, 0 decimals. &nbsp;If the user enters a &quot;2&quot; in the field, and the user clicks a [Copy] command button, I want the current record to be copied 1 time. &nbsp;In other words, end up with two records with all of the data copied exactly except for one field. &nbsp;The field that can't be copied is a date field. &nbsp;For this field the logic it to make the one copy but advance the date by one day in the copied record, Saturday's, Sunday's, and holidays included. 
 
If the user enters a &quot;3&quot; in the number field, I want the current record to be copied 2 times. &nbsp;In other words, end up with three records with all of the data copied exactly except for the date field. &nbsp;For this date field the logic it to make the two copies but advance the date by one day for each copy, Saturday's, Sunday's, and holidays included. 
 
I sure hope I've explained this well.
</div>
</div>

I have a form bound to a table that has several fields on it.  One of them is a number field, standard, 0 decimals.  If the user enters a "2" in the field, and the user clicks a [Copy] command button, I want the current record to be copied 1 time.  In other words, end up with two records with all of the data copied exactly except for one field.  The field that can't be copied is a date field.  For this field the logic it to make the one copy but advance the date by one day in the copied record, Saturday's, Sunday's, and holidays included.

If the user enters a "3" in the number field, I want the current record to be copied 2 times.  In other words, end up with three records with all of the data copied exactly except for the date field.  For this date field the logic it to make the two copies but advance the date by one day for each copy, Saturday's, Sunday's, and holidays included.

I sure hope I've explained this well.

Copy record X number of times

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.