Centar za edukaciju-BiH



#21 23.02.2014 18:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Update rekorda iz jedne tabele u drugu
Ok razumio sam.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#22 23.02.2014 19:32
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: Update rekorda iz jedne tabele u drugu
U tabeli IzlazSkladista trebala bi imati polje tipa yes/no koje govori o tomr da li je kolicina skinuta sa stanja. Je li to polje fiskal ili treba dodati novo polje? Ili mozda zelis da se kolicina skida automatski pri insertu?
↑  ↓

#23 23.02.2014 19:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Update rekorda iz jedne tabele u drugu
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Upisi_Stanje(Br_racuna As Integer)
  2. Dim Db As DAO.Database
  3. Dim Rs As DAO.Recordset
  4. Dim Kol(2) As Single
  5.  
  6. Dim SQL As String
  7.  
  8.  
  9. Set Db = CurrentDb()
  10.  
  11. SQL = "SELECT Skladiste.Kolicina AS K1, IzlazIzSkladista.Kolicina AS K2 " _
  12.       & "FROM IzlazIzSkladista INNER JOIN Skladiste ON IzlazIzSkladista.Sifra = Skladiste.Sifra " _
  13.       & "WHERE BrojRacuna=" & Br_racuna
  14. Set Rs = Db.OpenRecordset(SQL)
  15. Do While Not Rs.EOF
  16. Rs.Edit
  17. Kol(1) = Rs!K1
  18. Kol(2) = Rs!K2
  19. Kol(0) = Kol(1) - Kol(2)
  20. Rs!K1 = Kol(0)
  21. Rs.Update
  22. Rs.MoveNext
  23. Loop
  24. Rs.Close
  25. Set Db = Nothing
  26. End Function
Evo to je procedura koja ce upisati stanje.
Naravno postavlja se pitanje sta kada se pogrijesi.
Onda bi trebalo vratiti.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#24 23.02.2014 19:37
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:303


Predmet:Re: Update rekorda iz jedne tabele u drugu
Moze se dodati polje a mozda i ne treba jer bi se prilikom printanja racuna kolicina skinula sa stanja a racun ne moze biti dva puta isprintan.
Pozdrav, Amela
↑  ↓

#25 23.02.2014 19:39
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:303


Predmet:Re: Update rekorda iz jedne tabele u drugu
Kada se pogrijesi onda se pravi reklamirani racun. Znaci obrnuti proces. Sad cu probati proceduru. Hvala.
Pozdrav, Amela
↑  ↓

#26 23.02.2014 19:49
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:303


Predmet:Re: Update rekorda iz jedne tabele u drugu
Procedura funkcionise besprijekorno. Sad jos treba napraviti za reklamirani, mislim da cu uspjeti sama jer je samo obrnut proces.

Hvala Vam puno na pomoci.
Pozdrav, Amela
↑  ↓

#27 23.02.2014 19:56
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:303


Predmet:Re: Update rekorda iz jedne tabele u drugu
Ustvari procedura i za reklamirani ostaje ista jer se kolicina na reklamiranom racunu kuca u minusu.
Jos jednom hvala zxz. Sta bih ja bez tebe.
Pozdrav, Amela
↑  ↓

#28 23.02.2014 19:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Update rekorda iz jedne tabele u drugu
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Vrati_Stanje(Br_racuna As Integer)
  2. Dim Db As DAO.Database
  3. Dim Rs As DAO.Recordset
  4. Dim Kol(2) As Single
  5.  
  6. Dim SQL As String
  7.  
  8.  
  9. Set Db = CurrentDb()
  10.  
  11. SQL = "SELECT Skladiste.Kolicina AS K1, IzlazIzSkladista.Kolicina AS K2 " _
  12.       & "FROM IzlazIzSkladista INNER JOIN Skladiste ON IzlazIzSkladista.Sifra = Skladiste.Sifra " _
  13.       & "WHERE BrojRacuna=" & Br_racuna
  14. Set Rs = Db.OpenRecordset(SQL)
  15. Do While Not Rs.EOF
  16. Rs.Edit
  17. Kol(1) = Rs!K1
  18. Kol(2) = Rs!K2
  19. Kol(0) = Kol(1) + Kol(2)
  20. Rs!K1 = Kol(0)
  21. Rs.Update
  22. Rs.MoveNext
  23. Loop
  24. Rs.Close
  25. Set Db = Nothing
  26. End Function

evo za nazaj.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#29 23.02.2014 20:25
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Postovi:303


Predmet:Re: Update rekorda iz jedne tabele u drugu
Hvala puno!
Pozdrav, Amela
↑  ↓

Stranice (3):1,2,3


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 27 am.