Predmet:Re: Update rekorda iz jedne tabele u drugu
PreuzmiIzvorni kôd (Visual Basic):Function Upisi_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
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.