Function UnosUlza(NalogID As String, Izlaz_Br As String)
Dim DB As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim SQL As String
Dim I As Integer

'On Error GoTo Greska
SQL = "SELECT K_Sirovine.SifraArt, K_Sirovine.Cena, [komada]*[Kolicina] AS Ukupno, K_Sirovine.Jed_M " _
 & "FROM (K_Proizvodi INNER JOIN K_Sirovine ON K_Proizvodi.Sifra_P = K_Sirovine.Sifra_P) " _
 & "INNER JOIN T_StavkeN ON K_Proizvodi.Sifra_P = T_StavkeN.IdProizvoda " _
  & "WHERE T_StavkeN.Sifra_N='" & NalogID & "'"

Set DB = CurrentDb
Set Rs1 = DB.OpenRecordset(SQL)
Set Rs2 = DB.OpenRecordset("SELECT * FROM T_Transakcije WHERE RedniBroj like 'I*'")
If Rs2.RecordCount > 0 Then
Rs2.MoveLast
I = Val(Mid(Rs2!RedniBroj, 2))
End If
If Rs1.RecordCount = 0 Then GoTo Kraj
Do While Not Rs1.EOF
I = I + 1
Rs2.AddNew
Rs2!RedniBroj = "I" & Format(I, "00000000")
Rs2!Sifra_Transakcije = Izlaz_Br
Rs2!SifraArtikla = Rs1!SifraArt
Rs2!Jed_M = Rs1!Jed_M
Rs2!CenaUlaza = Rs1!Cena
Rs2!Status = 2
Rs2!Kolicina = Rs1!Ukupno
Rs2.Update
Rs1.MoveNext
Loop
Izlaz:
Rs1.Close
Rs2.Close
Exit Function
Kraj:

MsgBox "Nema Podataka"
GoTo Izlaz
Greska:
MsgBox Err.Number & vbCr & Err.Description
End Function