Function ProknjiziMS(ID As String) 'Medjuskladusnaotpremnica
On Error GoTo Err_ProknjiziMS_U
Dim db As Database
Dim rs1 As Recordset, rs2 As Recordset
Dim SQL1 As String, SQL2 As String, Skladiste(2) As String
Dim I As Integer, IdTransakcije(2) As Integer

Set db = CurrentDb()
SQL1 = "SELECT * FROM tblDokumenti WHERE ID='" & ID & "'"
SQL2 = "SELECT * FROM tblTransakcije"
Set rs1 = db.OpenRecordset(SQL1)
Set rs2 = db.OpenRecordset(SQL2)

 ' Upis u tbl_Transakcije
Skladiste(1) = rs1!Skladiste
Skladiste(2) = rs1!Skladiste_2
For I = 1 To 2
rs2.AddNew
rs2!Datum = rs1!Datum
rs2!Skladiste = Skladiste(I)
rs2!IDdokumenta = rs1!IDdokumenta
rs2!BrDokumenta = rs1!ID
rs2!PartnerID = rs1!PartnerID
rs2!OperID = "aa" 'tkoRadiIme() & " " & tkoRadiPrezime()
rs2!StatusTR = I
rs2.Update
rs2.MoveLast
IdTransakcije(I) = rs2!IdTransakcije
Next I
rs1.Close
rs2.Close
SQL1 = "SELECT * FROM tblDokumentiStavke WHERE ID='" & ID & "'"
SQL2 = "SELECT * FROM tblUlazIzlaz"
Set rs1 = db.OpenRecordset(SQL1)
Set rs2 = db.OpenRecordset(SQL2)
' Upis u Tbl_UlazIzlaz
For I = 1 To 2
rs2.AddNew
rs2!IdTransakcije = IdTransakcije(I)
rs2!Sifra = rs1!Sifra
rs2!Ulaz = rs1!Kolicina
rs2.Update
Next I

rs1.Close
rs2.Close
Set db = Nothing
MsgBox "Stavke sa Dokumenta broj: " _
& Format(IDdokumenta, "00-00000") & " su knjižene!", vbOKOnly, "Potvrda"
Izlaz:
Exit Function
Err_ProknjiziMS_U:
MsgBox "Greska broj " & err.Number & vbCrLf & err.Description & vbCrLf & "u funkciji ProknjiziMS()"
Kraj:
MsgBox "Niste popunili sve podatke"
End Function