Prikazi cijelu temu 23.02.2014 19:56
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 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.