[Resolvido]Duplicar Registo

Oi precisa do seguinte, este é o código que utilizo para copiar/ duplicar registo, mas no caso pretendia que mantivesse todo o registo sendo que este elimina uma parte.

Por outro lado gostaria que questiona-se o utilizador se pretende mesmo duplicar o registo - Sim / Não

Código:

Private Sub Duplicar_Click()
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPaste
Me.TratamentoEnfermagem = nullo
Me.TratamentoEnfermagem.SetFocus
End Sub

sei que o problema esta no comendo Me.TratamentoEnfermagem = nullo não sei é o que colocar após o = ( isto para manter o que esta escrito neste campo, pois sera para manter e alterar o que pretender )
Obrigado

Olá;

Código:

Private Sub Duplicar_Click()
'pergunta se o utilizador quer duplicar ou não
If MsgBox("Deseja duplicar o registo ?", vbQuestion + vbYesNo, "Duplicar") = vbNo Then
'se responder não, avança para um novo e não duplica
        DoCmd.GoToRecord , , acNewRec
'pára aqui
Exit Sub
End If
'se sim, duplica o registo num novo
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToRecord , , acNewRec
    DoCmd.RunCommand acCmdPaste
    'Me.TratamentoEnfermagem = Null
    'Me.TratamentoEnfermagem.SetFocus
End Sub

Amigo João Paulo resolveu em pleno. Uma vez mais obrigado.

Fico feliz.

Obrigado pelo retorno o forum agradece.

Copiei o código, mas deu erro na chave primaria onde meu campo chama CodDespesa é um número e não numeração automática, tem como corrigir?