Centar za edukaciju-BiH



#61 01.07.2015 21:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#62 02.07.2015 06:06
Jasmin Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:382


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?
Danas je lako biti neprijatelj, al' je tesko biti prijatelj. Samo radi toga, ja, radim teske stvari!
↑  ↓

#63 02.07.2015 08:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#64 02.07.2015 08:55
Jasmin Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:382


Predmet:Re: Prebacivanje sa access forme u excel.
netreba spisak izbrisanih moze ovako.
Danas je lako biti neprijatelj, al' je tesko biti prijatelj. Samo radi toga, ja, radim teske stvari!
↑  ↓

#65 02.07.2015 10:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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:

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#66 02.07.2015 11:24
Jasmin Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:382


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.
Danas je lako biti neprijatelj, al' je tesko biti prijatelj. Samo radi toga, ja, radim teske stvari!
↑  ↓

#67 02.07.2015 12:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Prebacivanje sa access forme u excel.
UndoN(N) = Me.ID
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#68 02.07.2015 21:25
Jasmin Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:382


Predmet:Re: Prebacivanje sa access forme u excel.
odo ja sad na odmor zona pa kad se vratim onda cemo nastaviti. cujemo se
Danas je lako biti neprijatelj, al' je tesko biti prijatelj. Samo radi toga, ja, radim teske stvari!
↑  ↓

#69 02.07.2015 22:20
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#70 02.07.2015 22:35
Jasmin Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:382


Predmet:Re: Prebacivanje sa access forme u excel.
ako me putevi navedu kod tebe javim ti. Wink
Danas je lako biti neprijatelj, al' je tesko biti prijatelj. Samo radi toga, ja, radim teske stvari!
↑  ↓

Stranice (7):1,2,3,4,5,6,7


Sva vremena su GMT +01:00. Trenutno vrijeme: 9: 39 am.