Function ProknjiziMS(ID As String) 'Medjuskladusnaotpremnica On Error GoTo Err_ProknjiziMS Dim db As Database Dim rs1 As Recordset Dim rs2 As Recordset Dim rs3 As Recordset Dim Rs4 As Recordset Dim SQL As String Dim SQL1 As String Set rcs = Nothing Set db = CurrentDb() SQL = "SELECT * FROM tblDokumenti WHERE ID='" & ID & "'" SQL1 = "SELECT * FROM tblDokumentiStavke WHERE ID='" & ID & "'" Set rs1 = db.OpenRecordset(SQL) Set rs2 = db.OpenRecordset("tblTransakcije") Set rs3 = db.OpenRecordset(SQL1) Set Rs4 = db.OpenRecordset("tblUlazIzlaz") ' Upis u tbl_Transakcije Do While Not rs1.EOF rs2.AddNew rs2!Datum = rs1!Datum rs2!Skladiste = rs1!Skladiste ' Veleprodja rs2!IDdokumenta = rs1!IDdokumenta rs2!BrDokumenta = rs1!ID rs2!PartnerID = rs1!PartnerID rs2!StatusTR = 2 'Izlaz rs2.Update rs1.MoveNext Loop Do While Not rs1.EOF rs2.AddNew rs2!Datum = rs1!Datum rs2!Skladiste = rs1!Skladiste_2 rs2!IDdokumenta = rs1!IDdokumenta 'Maloprodaja rs2!BrDokumenta = rs1!ID rs2!PartnerID = rs1!PartnerID rs2!StatusTR = 1 'ULAZ rs2.Update rs1.MoveNext Loop rs1.Close rs2.Close ' Upis u Tbl_UlazIzlaz Do While Not rs3.EOF Rs4.AddNew Rs4!IDTransakcije = DLookup("[IDtransakcije]", "TblTransakcije", "[BrDokumenta] ='" & ID & "'") Rs4!Sifra = rs3!Sifra Rs4!Izlaz = rs3!Kolicina Rs4.Update rs3.MoveNext Loop rs3.Close Rs4.Close Set db = Nothing Izlaz: Exit Function Err_ProknjiziMS: MsgBox "Greska broj " & err.Number & vbCrLf & err.Description & vbCrLf & "u funkciji ProknjiziMS()" Kraj: MsgBox "Niste popunili sve podatke" End Function