Auto Create Records

[Poppa Smurf]

This is the code to add your Period. Replace the [Name of your field] with the correct field name as I am not sure of the field name you will be using.

The first [Name of your field] assigns 0 to the field
The second [Name of your field] assigns 1 to 6 to the field each time the code loop.

With rst_output
' add first followup 7 days after the create date
rst_output.AddNew
![ExpectedContactDate] = DateAdd("d", 7, Me.StartDate)
![Name of your field] = 0
' add other fields here as required
rst_output.Update

' now add the next followup dates
For counter_followup = 1 To 6
rst_output.AddNew
![ExpectedContactDate] = DateAdd("m", counter_followup, Me.StartDate)
![Name of your field] = counter_followup
' add other fields here as required
rst_output.Update
Next counter_followup
End With
rst_output.Close

 

[CanWest]

Thanks guys. I actually figured that last one out late last night. Thank you ever so much for the learning experience.

Again many thanks....