BiH



#61 01.07.2015-21:35
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,979


Subject: Re: Prebacivanje sa access forme u excel.
DownloadIzvorni kod (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.
Pozdrav
↑  ↓

#62 02.07.2015-06:06
Jasmin Offline
Moderator
Registrovan/a od: 04.02.2009-14:02
Komentari: 400


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,979


Subject: 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
Pozdrav
↑  ↓

#64 02.07.2015-08:55
Jasmin Offline
Moderator
Registrovan/a od: 04.02.2009-14:02
Komentari: 400


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,979


Subject: Re: Prebacivanje sa access forme u excel.
Evo ovako:
Gore na vru tog modula stavi ovaj kod.
DownloadIzvorni kod (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

DownloadIzvorni kod (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:
DownloadIzvorni kod (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:

Pozdrav
↑  ↓

#66 02.07.2015-11:24
Jasmin Offline
Moderator
Registrovan/a od: 04.02.2009-14:02
Komentari: 400


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,979


Subject: Re: Prebacivanje sa access forme u excel.
UndoN(N) = Me.ID
Pozdrav
↑  ↓

#68 02.07.2015-21:25
Jasmin Offline
Moderator
Registrovan/a od: 04.02.2009-14:02
Komentari: 400


Subject: 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 Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,979


Subject: 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.
Pozdrav
↑  ↓

#70 02.07.2015-22:35
Jasmin Offline
Moderator
Registrovan/a od: 04.02.2009-14:02
Komentari: 400


Subject: 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 (5): 1, 2, 3, 4, 5


All times are GMT +01:00. Current time: 17.10.2019-16:02.