[Resolvido]Caixa de Mensagem a confirmar Duplicar registo

Olá

No código que utilizo para duplicar registos , gostaria que antes de duplicar pergunta-se se gostaria de duplicar registo. E clicando em Ok/Sim duplica-se.
Obrigado

Código:

Private Sub btnDuplucar_Click()
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , "", acNewRec
DoCmd.RunCommand acCmdPasteAppend
End Sub

Um bem hajam ! Saúde

Olá Marco Sousa

Não falta exemplos no forum, veja como fazer uma "Busca":
https://www.maximoaccess.com/t1115-busca-no-forum-search

Veja por exemplo
https://www.maximoaccess.com/t8433-resolvidomsgbox-com-vbyesno

Nota: Ajustei o título do tópico para pesqueisas de outros membros.

Abraço

Ok

Obrigado Teixeira !

Abraço para si também e saúde.

Ficou assim :

Código:

Private Sub btnDuplucar_Click()
If MsgBox("Deseja Duplicar Registo?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , "", acNewRec
DoCmd.RunCommand acCmdPasteAppend
End If
End Sub

Obrigado, resoilvido.

Olá Marco Sousa,

Obrigado pelo retorno, o forum agradece.

Abraço e também Saúde