Com demanar confirmació per Eliminar registres d'Access mitjantçant MsgBox i codi VBA

Per demanar confirmació per eliminar un registre d'Access podem fer servir el següent codi situat en l'event "Al hacer clic" d'un botó que podríem anomenar Eliminar.

Private Sub cmdEliminarRegistre_Click()
On Error GoTo Error_cmdEliminarRegistre_Click

Dim strMissatge As String
Dim intResposta As Integer
strMissatge = "Estàs segur que vols eliminar el client?"
intResposta = MsgBox(strMissatge, vbQuestion + vbYesNo, "Eliminar client")
If intResposta = vbYes Then
'DoCmd.SetWarnings False
RunCommand acCmdSelectRecord
RunCommand acCmdDelete
'DoCmd.SetWarnings True
End If

Exit_cmdEliminarRegistre_Click:
    Exit Sub

Error_cmdEliminarRegistre_Click:
    MsgBox Err.Description
    Resume Exit_cmdEliminarRegistre_Click
    
End Sub