Prikazi cijelu temu 23.02.2014 19:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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