can anyone help me get the iteration in context for this operation correct. I thought I had it but it just starting adding records add infinitum!! It should only add duplicates equal to "quantity" which is a box on the form.
The code is as follows :-
Private Sub Command43_Click()
On Error GoTo Err_Command43_Click
Dim quantity As Integer
counter = 0 ' Initialize variables.
Do While counter < Me.quantity ' Outer loop.
counter = counter + 1 ' Increment Counter.
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Many thanks Mike