Function Vrati_Stanje(Br_racuna As Integer)
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim Kol(2) As Single

Dim SQL As String


Set Db = CurrentDb()

SQL = "SELECT Skladiste.Kolicina AS K1, IzlazIzSkladista.Kolicina AS K2 " _
      & "FROM IzlazIzSkladista INNER JOIN Skladiste ON IzlazIzSkladista.Sifra = Skladiste.Sifra " _
      & "WHERE BrojRacuna=" & Br_racuna
Set Rs = Db.OpenRecordset(SQL)
Do While Not Rs.EOF
Rs.Edit
Kol(1) = Rs!K1
Kol(2) = Rs!K2
Kol(0) = Kol(1) + Kol(2)
Rs!K1 = Kol(0)
Rs.Update
Rs.MoveNext
Loop
Rs.Close
Set Db = Nothing
End Function