Function PrenesiPod(Kategorija As Integer, IdStroja As String)
Dim Db As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim Rs3 As Recordset
Dim SQL As String
Dim Dio As Integer
Dim I As Integer
Dim BrojKolona As Integer


Set Db = CurrentDb
SQL = "SELECT * FROM tblShemaMontaze " _
    & "WHERE kategorija=" & Kategorija & "  AND IDstroja='" & IdStroja & "'"

Set Rs1 = Db.OpenRecordset(SQL)
Set Rs3 = Db.OpenRecordset("tblShema")
BrojKolona = Rs1.Fields.Count
Do While Not Rs1.EOF
Dio = Rs1!IdDijela
Rs3.AddNew
        For I = 1 To BrojKolona
        Rs3.Fields(I) = Rs1.Fields(I - 1)
        Next I
Rs3.Update
SQL = "SELECT * FROM tblShemaMontaze " _
     & "WHERE IDdijela='" & IdStroja & "' AND kategorija>kategorija"
Set Rs2 = Db.OpenRecordset(SQL)
Do While Not Rs2.EOF
        Rs3.AddNew
        For I = 1 To BrojKolona
        Rs3.Fields(I) = Rs1.Fields(I - 1)
        Next I
Rs3.Update
Rs2.MoveNext
Loop
Rs2.Close
Rs1.MoveNext
Loop
Rs1.Close
Rs3.Close
Set Db = Nothing
End Function