Centar za edukaciju-BiH

Predmet:Re: Prebacivanje sa access forme u excel.

---

E zona sad sam gledao nesto ovaj kod. Necu da zatvorim samo formu, nego citav access program

---

Predmet:Re: Prebacivanje sa access forme u excel.

---

a ha ovaj sam napravio sam da mi zatvara cijeli program. de ti vidi ove druge undo i delete0.

---

Predmet:Re: Prebacivanje sa access forme u excel.

---

evo napravio sam i za undo gumb. to mi radi. al kod ovog delete sam zapeo.

---

Predmet:Re: Prebacivanje sa access forme u excel.

---

jesam djavla napravio radi ako ima nesto upisano a ako nema ili je record koji je sparan prije nece odma mi se otvori vba sa onim zutim markiranjem koda. tako sam bio blizu.

---

Predmet:Re: Prebacivanje sa access forme u excel.

---

samo umjesto docmd.close napsisi
docmd.quit
ne ide to delete i undo tako
Nemozes undati rekord iz baze ne postoji to.

---

Predmet:Re: Prebacivanje sa access forme u excel.

---

da hvla ti to sam sredio
sto se tice undo I delete imajgu gotove funkcije ali sa njihovim msgbox porukama., al ja hocu da to izmejnim.
ovako izgleda za undo:
DoCmd.RunCommand acCmdUndo

Exit_angra_Click:
Exit Sub

Err_angra_Click:
MsgBox Err.Description
Resume Exit_angra_Click

A ovako za DELETE:

On Error GoTo Err_Kommandoknapp116_Click

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord

Exit_Kommandoknapp116_Click:
Exit Sub

Err_Kommandoknapp116_Click:
MsgBox Err.Description
Resume Exit_Kommandoknapp116_Click

e sad bi tu trebao da prepravim te kodove. da postavim svoje msgbox porke.

---

Predmet:Re: Prebacivanje sa access forme u excel.

---

Umjesto ovoga
MsgBox Err.Description
Stavi svoje.
MsgBox "Obrisano"

---

Predmet:Re: Prebacivanje sa access forme u excel.

---

Da al mi treba sa ono yes or no da me pita hocu li obrisati.
I jos nesto ako je prazno poljeako pritisnem na gumb undo onda mi se otvori opet vba.

---

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

---

Predmet:Re: Prebacivanje sa access forme u excel.

---

delete radi, asmo jos ovaj undo. ovaj kod sto si mi poslao vraca informacije samo iz jednog polja, moze li se uraditi undo ako je upisano u vise polja , I kako ?

---