Help with duplicate record, with changed field

[capdownlondon]

Working in Access 2003.
I have managed to duplicate a record using a button on a form with code:

Private Sub Command16_Click ()
On Error GoTo Err_Command16_C lick


DoCmd.DoMenuIte m acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuIte m acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuIte m acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

Exit_Command16_ Click:
Exit Sub

Err_Command16_C lick:
MsgBox Err.Description
Resume Exit_Command16_ Click

End Sub

But this just creates a duplicate of the fields on the form, which is fine, but i would also like to +1 to one of the fields on the new record.

Is this possible? If so how would i do it.



Also.....
If this is possible,
would it also be possible to have a drop down menu in which to select say (n)1-9 and that is how many duplicates it will make with field +(n).
so the first duplicate will be the same but a field will have +1, and the next +2, etc.
for the selected number of fields

[capdownlondon]

ive tried that, but i get a "type mismatch" error now

[capdownlondon]

Ok, well i got it all sorted now. using this code:

Private Sub Command16_Click ()
On Error GoTo Err_Command16_C lick
Dim i As Integer, cnt As Integer, varBk As String

varBk = Me.Bookmark
cnt = Me!Combo17

For i = 0 To cnt - 1
DoCmd.DoMenuIte m acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuIte m acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuIte m acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append

Me!Text22 = Me!Text22 + 1



Next

Exit_Command16_ Click:
Me.Bookmark = varBk
Exit Sub

Err_Command16_C lick:
MsgBox Err.Description


Resume Exit_Command16_ Click


End Sub

But......

Is it also possible to stop this solution making a duplicate duplicate.

What i mean is; this solution creates a duplicate of fields x, y, z and w+1.

So this is not creating exact duplicates, as w value has changed for each record.

Now if you hit this button, or run this, twice, there will be REAL duplicates, as there will be 2 copies of x ,y, z and w+1.

So..

Is it possible to add code that will replace the old duplicate.
Also because z is a variable and i may want this changed on the duplicates, if they already exist i can't just block the new duplicate being sent.

[Denburt]

You can use something like the following to prevent duplication of data or change it up to suite your needs.

rs= me.recordsetclo ne
if rs.findfirst (PutWhereCondit ionHere) Then
rs.close
set rs = nothing
exit sub
end if