quarta-feira, 4 de novembro de 2009

Dica 1 - Como solicitar a confirmação de exclusão de um registro ?

Para solicitar a resposta do usuário precisamos exibir uma caixa de mensagem e a partir do retorno do usuário (sim ou não) efetuamos uma determinada tarefa.

If MsgBox("Você confirma a exclusão do registro?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

MsgBox "Registro excluído com sucesso!", vbInformation, "Informação"
Else
DoCmd.CancelEvent

End If