[Resolvido]Delete em formulário simples.

Estou a utilizar DoCmd.RunCommand acCmdDeleteRecord para apagar num formulário simples um Cliente(registo) mas queria tornar este processo mais Profissional e estou a tentar utilizar o If MsgBox... tentei de varias formas mas sem conseguir. Como posso fazer o código para eliminar questionando se pretendo mesmo eliminar o registo.

Código:


'Se nnao tiver nada preenchido no campo NomeCli, ele não faz nada.
If IsNull(Me![b]NomeCli[/b]) Then Exit Sub
'Emite a Mensagem "... Com no nome do Cliente" e pergunta se exclui ou nao.
If MsgBox("Confirma a exclusão do Cliente" & vbCrLf & vbCrLf & Me![b]NomeCli[/b], vbCritical + vbYesNo, "Confirmação") = vbNo Then Exit Sub
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True



Veja se e assim que quer!

NomeCli é o Nome do Cliente... Ele Mostra o Nome do Cliente e pergunta se quer mesmo excluir o registro.

Pode mudar o vbCritical por vbQuestion pra mensagem de aviso ficar menos agressiva! rerererere

Perfeito. Funcionou na perfeição. Muito obrigado ajudou bastante.

Bacana!