Predmet:Re: Prebacivanje sa access forme u excel.

---

za undo:

if format$(Me.ImetvogPolja)<>"" then
DoCmd.RunCommand acCmdUndo
endif

za del:
On Error GoTo Err_Kommandoknapp116_Click
Dim R
R= MsgBox("Hoces Brisati ",vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton2,"NAPOMENA")

If R=vbYes then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
endif

---