How do I Repeating Code as many times as end user states in txt box

[wz]

I want to repeat this step (copying current record) as many times as the end user states in a text box on the current form.

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Me.Quantity.SetFocus ' next field on form

How? do I use loop?

 

[dhookom]

I would run an append query or create a recordset. I don't like code to copy and paste.

Duane
Hook'D on Access
MS Access MVP

 

[wz]

Thanks for your suggestion. I ran an SQL statement to append table and it works however I then need to refresh my dataentry form because the record doesn't show up.

 

[MazeWorX]

For n = 20 To 1 Step -1
'execute code here
Next n

to loop you could use For above this would loop 20 times counting down to 1. If you need user input for the amount of loops you could replace the 20 with some like Me.TheNameofYourcontrol to refresh you could use Me.Form.Requery




HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>