Duplicar registro com chave primária no código

Boa Tarde, Prezados

Quero criar um botão para criar uma cópia do registro atual, usei o código abaixo, mas ele só funciona se eu não tiver chave primária no campo código, tem alguma forma de criar a cópia com mudança do código, ou criar com exceção dele.

Private Sub BTN_DUPLICAR_Click()

On Error GoTo Err_BTN_DUPLICAR_Click

DoCmd.RunCommand acCmdSelectRecord

DoCmd.RunCommand acCmdCopy

DoCmd.RunCommand acCmdRecordsGoToNew

DoCmd.RunCommand acCmdSelectRecord

DoCmd.RunCommand acCmdPaste

Exit_BTN_DUPLICAR_Click:

Exit Sub

Err_BTN_DUPLICAR_Click:

MsgBox Err.Description

Resume Exit_BTN_DUPLICAR_Click

End Sub

Boa noite,

Provável que tenha que trabalhar sobre DAO
Veja este exemplo (https://)stackoverflow.com/questions/39213099/duplicate-record-with-new-primary-key-vba

Alexandre,

Eu tentei com este exemplo, mas no .Update em amarelo, depurou e deu o mesmo erro 3022 pedindo para remover a chave primária. Poderia me auxiliar novamente. Grata

Private Sub cmdDuplicate_Click()

 Dim rstSource   As DAO.Recordset
 Dim rstInsert   As DAO.Recordset
 Dim fld         As DAO.Field

 If Me.NewRecord = True Then Exit Sub

 Set rstInsert = Me.RecordsetClone
 Set rstSource = rstInsert.Clone
 With rstSource
   If .RecordCount > 0 Then
     ' Go to the current record.
     .Bookmark = Me.Bookmark
     With rstInsert
       .AddNew
         For Each fld In rstSource.Fields
           With fld
             If .Attributes And dbAutoIncrField Then
               ' Skip Autonumber or GUID field.
             ElseIf .Name = "SomeFieldToPreset" Then
               rstInsert.Fields(.Name).Value = SomeValue
             ElseIf .Name = "SomeFieldToExclude" Then
               ' Leave blank
             Else
               ' All other fields.
               ' Copy field content.
               rstInsert.Fields(.Name).Value = .Value
             End If
           End With
         Next
.Update
       ' Go to the new record and sync form.
       .MoveLast
       Me.Bookmark = .Bookmark
       .Close
     End With
   End If
   .Close
 End With

 Set rstInsert = Nothing
 Set rstSource = Nothing

End Sub

Boa noite,
Sem testar não vejo onde pode estar errado mas veja, a cada passo da execução, se ele passa pelo campo de auto-numeração ou não