Function UnosStavki(TransakcijaID As Integer, Order As Integer)
Dim Db As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim SQL As String


If TransakcijaID = 0 Or Order = 0 Then GoTo Kraj
Set Db = CurrentDb()
SQL = "SELECT * FROM tblProdajaStavke WHERE OrderID=" & Order
Set Rs1 = Db.OpenRecordset(SQL)
Set Rs2 = Db.OpenRecordset("TblUlazIzlaz")

Do While Not Rs1.EOF
Rs2.AddNew
Rs2!IDTransakcije = TransakcijaID
Rs2!Sifra = Rs1!Sifra
Rs2!Skl = DLookup("[skladiste]", "TblProdaja", "[orderID] =" & Order)
Rs2!Status = -1
Rs2!Izlaz = Rs1!Kolicina
Rs2.Update
Rs1.MoveNext
Loop
Rs1.Close
Rs2.Close
Set Db = Nothing
Izlaz:
Exit Function
Kraj:
MsgBox "Niste popunili sve podatke"
End Function