Function Zapisi(Kat As Integer, IDK As String, Op As Integer)
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim SQL1 As String
Dim SQL2  As String

SQL1 = "SELECT * FROM Indeks"
If Op = 0 Then
SQL2 = "SELECT * FROM Tbl_Zbirna" _
& " WHERE IDstroja='" & IDK & "'" '
Else
SQL2 = "SELECT * FROM Tbl_Zbirna" _
 & " WHERE IDstroja In (SELECT IDDijela FROM Indeks WHERE kat=" & Kat & ") Order BY IndexSklop" '& Imetabele
End If
Set Rs1 = DB.OpenRecordset(SQL1)
Set Rs2 = DB.OpenRecordset(SQL2)
If Op = 0 Then
If Rs2.RecordCount > 0 Then
   Rs1.AddNew
    Rs1!IDstroja = "0000001"
    Rs1!IDdijela = Format$(Rs2!IDstroja)
    Rs1!Kat = Kat - 1
    Rs1!Kom = 1
    Rs1.Update
End If
End If
    Do While Not Rs2.EOF
    Rs1.AddNew
    Rs1!IDstroja = Rs2!IDstroja
    Rs1!IDdijela = Rs2!IDdijela
    Rs1!Kat = Rs2!Kat
    Rs1!Kom = Rs2!Kom
    Rs1.Update
    Rs2.MoveNext
    Loop
Rs1.Close
Rs2.Close
End Function