[Resolvido]Mensagem de Confirmação

Bom Dia.

Tenho um Problema que não consigo Resolver.

Eu criei um botão para apagar um registo e queria que ao selecionar o botão aparace-se uma mensagem de Confirmação "Tem a certeza que Deseja Eliminar o registo" com 2 botões de Sim ou Não.

Se alguém me puder ajudar agradecia.

Bom dia Rodolfo
Qualquer coisa como:

Private Sub seubotão_Click()
On Error GoTo 1
If MsgBox("Deseja realmente excluir este registo?" & Trim(Me.campo1.Value) & " - " & Trim(Me.campo2.Value) & "?", vbYesNo + vbCritical + vbDefaultButton1, "ATENÇÃO") = vbYes Then
DoCmd.SetWarnings True
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings False
Else
MsgBox "Cancelado pelo utilizador!", vbOKOnly + vbCritical + vbDefaultButton1, "ATENÇÃO"
End If
Exit_seubotão_Click:
Exit Sub
1:
MsgBox Err.Description
End Sub

É só adaptar.

Abraço,
Rui

Boas!

Private Sub SeuBotão_Click()
If IsNull(Me.Código) Then
MsgBox "Não há dados para exclusão!", vbInformation, "Atenção!"
DoCmd.CancelEvent
Else

DoCmd.SetWarnings False
On Error Resume Next
Dim X As Integer
X = MsgBox("Deseja excluir o veiculo selecionado?", 20, "Rodolfo!")
If X = 6 Then
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End If
End If
End Sub

Resolveu Rodolfo?

Já está

Muito obrigado

Boa noite Rodolfo, faltou o resolvido e o clicar na mãozinha.
Abraço,
Rui