Copy Record using selected fields on Form

[Invicta]

There are two fields I need to copy preferably using a command button. If possible I would also like to stipulate how many new records I want.

I've made a start using the in built Duplicate Record function but can't work out what needs to be ammended.

Any help would be appreciated.
Bernard

Private Sub CmdDuplicateRecord_Click()
 
On Error GoTo Err_CmdDuplicateRecord_Click
 
Dim txtStockCodeNo As String
Dim txtFixtureNumberCom As String
 
Dim dbs As Dtabase
Dim rst As Recordset
Dim i As Integer
 
 
'Following Duplicates ALL fields - from in-built duplicate record "Wizard" function in Access
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
 
Exit_CmdDuplicateRecord_Click:
    Exit Sub
 
Err_CmdDuplicateRecord_Click:
    MsgBox Err.Description
    Resume Exit_CmdDuplicateRecord_Click
 
'How to duplicate two specific Text fields? eg StockCodeNo and FixtureNumberCom
'How to duplicate any number of these?
 
End Sub
 

[MMcCarthy]

Creating duplicate records is normally what you try to avoid. You say you want to duplicate just two fields in new records. Does the table have a primary key?

You will need to give a lot more information about what you are trying to do and why for us to be able to advise you.