![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivKwc6t9OdQdF9156TecdxdAv-hi44bhiasNCx7AVwpNCicW-GnJ4Dy6I3LoVzHSsO6sgY2dT-GbvxtoXrXMXrJrA_pL9FLn2gAupcOGXX0KnuOd4CDXEzKr8eY268cRuOfvDzuGqNdR8/s320/ln.jpg)
Obs: Este código exclui o registro e fecha o formulário:
Procedimento:
Acesse a propriedade do botão e na ação ao clicar da aba avento cole o código:
if msgbox("Deseja realmente excluir este registro?", vbquestion + vbyesno, "confirmação de exclusão") = vbno then exit sub
docmd.domenuitem acformbar, aceditmenu, 8, , acmenuver70
docmd.domenuitem acformbar, aceditmenu, 6, , acmenuver70
docmd.close
exit sub
msgbox err.description
end sub
Obs: Este código exclui, mas não fecha o formulário:
Procedimento: idem como o anterior
if msgbox("Deseja realmente excluir este registro?", vbquestion + vbyesno, "confirmação de exclusão") = vbno then exit sub
![](http://1.bp.blogspot.com/_2qPApgOledo/TB0dTi1rCFI/AAAAAAAAAmg/qPbZAGZ-MCI/s280/sangue.jpg)
Nenhum comentário:
Postar um comentário