Jasmin 30.06.2015 21:33
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.

Jasmin 30.06.2015 21:54
Predmet:Re: Prebacivanje sa access forme u excel.

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

Jasmin 30.06.2015 22:00
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.

zxz 30.06.2015 22:39
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.

zxz 30.06.2015 21:13
Predmet:Re: Prebacivanje sa access forme u excel.

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Close_Click()
  2. Dim R As Integer
  3. R = MsgBox("Zatvaras formu  ", vbYesNo + vbExclamation + _
  4. vbApplicationModal + vbDefaultButton2, "Napomena")
  5.     If R = vbYes Then
  6.      DoCmd.Close
  7.     End If
  8. End Sub
Ovo je za close.
Za undo i delete morat ces nesto drugo napraviti ukoliko zelisi brisati cijele rekorde (redove Iz baze)
Prvo mi reci jeli to u pitanju.
Brisanje cijelog reda u bazi.

Zaustavljanje toka:
Kada kliknes na lijevi traku pozora od modula pored nekog reda koda, pojavit ce se crvena tackurina i tu ce kod stati sa izvrsenjem i taj red pozuti.
kada ponovo kliknes na tu tacku ona nestani a i kod nebi trebao vise da staje tu sem ako nisi otkacio to prii radu procedure.

zxz 01.07.2015 07:17
Predmet:Re: Prebacivanje sa access forme u excel.

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

Jasmin 01.07.2015 06:24
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.

Jasmin 01.07.2015 08:00
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.

zxz 01.07.2015 08:19
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

Jasmin 01.07.2015 08:37
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 ?