Function Strojevi(ID As String, Kategorija As Integer)
Dim I As Integer
Dim Opcija As Integer

Set DB = CurrentDb
DB.Execute "DELETE*FROM [Indeks]"
Zapisi Kategorija, ID, Opcija
Opcija = 1
For I = Kategorija To 4
Zapisi I, ID, Opcija
Next I
BrojKomada
Slaganje
End Function
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
   Rs1.AddNew
    Rs1!IDstroja = "0000001"
    Rs1!IDdijela = Rs2!IDstroja
    Rs1!Kat = Kat - 1
    Rs1!Kom = 1
    Rs1.Update
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