Jasmin 02.07.2015 06:06
Predmet:Re: Prebacivanje sa access forme u excel.

zona imas li ok napravio sam I to kasnije cemo u gledati ako ima gresaka. hocemo li sad na undo gumb?

zxz 01.07.2015 21:35
Predmet:Re: Prebacivanje sa access forme u excel.

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim R
  2. R = MsgBox("BriÅ¡eÅ¡ ovaj red pÅ¡odataka?  ", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton2, "NAPOMENA")
  3.  
  4. If R = vbYes Then
  5. Me.Brisanje = 1
  6. Me.RecordSource = Me.RecordSource
  7. End If
evo ti kod za taster brisanja.
alow deletons stavi na no.

zxz 02.07.2015 08:17
Predmet:Re: Prebacivanje sa access forme u excel.

Nije to jos gotovo.
Sad jedno pitanje za tebe.
Dali zelis:
- da ti izbaci spisak svih koje si brisao pa da odaberes koji vratiti
-Da vraca 1 po jedan redosledom brisanja.
-Da vraca samo zadnji obrisani red

Jasmin 02.07.2015 08:55
Predmet:Re: Prebacivanje sa access forme u excel.

netreba spisak izbrisanih moze ovako.

zxz 02.07.2015 10:36
Predmet:Re: Prebacivanje sa access forme u excel.

Evo ovako:
Gore na vru tog modula stavi ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Dim UndoN() As Integer
  3. Dim N As Integer
Znaci na vrhu modula od forme.

Na taster za brisanje na on klik stavi ovaj kod ili ispravi stari

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim R
  2. R = MsgBox("BriÅ¡eÅ¡ ovaj red podataka?  ", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton2, "NAPOMENA")
  3.  
  4. If R = vbYes Then
  5. N = N + 1
  6. ReDim Preserve UndoN(N) As Integer
  7. Me.Brisanje = 1
  8. UndoN(N) =[color=#FF0000] ImeTvogPoljaPrimarnogKljuca[/color]
  9. Me.RecordSource = Me.RecordSource
  10. End If

Na tater uno na on klik stavi ovaj kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Db As DAO.Database
  2. Dim Rs As DAO.Recordset
  3. Dim SQL As String
  4. If N = 0 Then GoTo Kraj:
  5. SQL = "SELECT Brisanje FROM Artilkli WHERE [color=#FF0000]ImeTVogPOljaPrimarnogJluca[/color]=" & UndoN(N)
  6. Set Db = CurrentDb()
  7. Set Rs = Db.OpenRecordset(SQL)
  8.  
  9. Rs.Edit
  10. Rs.Fields(0) = 0
  11. Rs.Update
  12. N = N - 1
  13. Me.RecordSource = Me.RecordSource
  14. Kraj:

Jasmin 02.07.2015 11:24
Predmet:Re: Prebacivanje sa access forme u excel.

Na delete gumb ovaj kod mi pokazuje u crvenoj boji "UndoN(N) = ID"

Ono sam sve uradio kako si rkao al mi UNDO gumb ne radi kako treba.
Kad kliknem na njega nista se ne desava kao da nema nikkavih kodova.

zxz 02.07.2015 12:10
Predmet:Re: Prebacivanje sa access forme u excel.

UndoN(N) = Me.ID

Jasmin 02.07.2015 21:25
Predmet:Re: Prebacivanje sa access forme u excel.

odo ja sad na odmor zona pa kad se vratim onda cemo nastaviti. cujemo se

zxz 02.07.2015 22:20
Predmet:Re: Prebacivanje sa access forme u excel.

Kako to tako.
Pocnes radit pa na odmor.
Dje ces na odmor da neces dje blizu mene bit pa da nastavimo.

Jasmin 02.07.2015 22:35
Predmet:Re: Prebacivanje sa access forme u excel.

ako me putevi navedu kod tebe javim ti. Wink