Function BrojKomada()
Dim DB As Database
Dim Rs1 As Recordset
Dim Rs2 As Recordset
Dim BrKomada As Long
Dim IDdijela As String

Set DB = CurrentDb
Set Rs1 = DB.OpenRecordset("Indeks")
Do While Not Rs1.EOF
IDdijela = Rs1!IDdijela
If Rs1!KOMADA = 1 Then
BrKomada = Rs1!Kom
Else
BrKomada = Rs1!KOMADA
End If
Set Rs2 = DB.OpenRecordset("SELECT * FROM Indeks WHERE idstroja ='" & IDdijela & "'")
    Do While Not Rs2.EOF
    Rs2.Edit
    Rs2!KOMADA = BrKomada * Rs2!Kom
    Rs2.Update
    Rs2.MoveNext
    Loop
Rs2.Close
Rs1.MoveNext
Loop
Rs1.Close

End Function

Function Slaganje()
Dim Rs As Recordset
Dim SQL As String
Dim Kat As String
Dim I As Integer
Dim IDstroja As String
Dim IDdijela As String
Dim Brojac As Integer


Set DB = CurrentDb
SQL = "SELECT * FROM Indeks"
Set Rs = DB.OpenRecordset(SQL)
 Do While Not Rs.EOF
 Rs.Edit
 Rs!Slaganje = ""
 Rs.Update
Rs.MoveNext
Loop
Rs.Close
For I = 0 To 5
SQL = "SELECT * FROM Indeks WHERE Kat=" & I
Set Rs = DB.OpenRecordset(SQL)
 Do While Not Rs.EOF
 Brojac = Brojac + 1
 IDdijela = Rs!IDdijela
 Rs.Edit
 If Format$(Rs!Slaganje) = "" Then
 Rs!Slaganje = I & "." & Str(Brojac)
 Else
 Rs!Slaganje = Rs!Slaganje & "." & I & "." & Str(Brojac)
 End If
 Kat = Rs!Slaganje
 Rs.Update
 Unos IDdijela, Kat, I
 Rs.MoveNext
 Loop
 Rs.Close
 Brojac = 0
Next I
End Function

Function Unos(ID As String, KLASA As String, K As Integer)
Dim Rs As Recordset
Dim SQL As String
Dim Slaganje As String
Dim Brojac As Integer
Set DB = CurrentDb

SQL = "SELECT * FROM Indeks WHERE IDstroja='" & ID & "'"
Set Rs = DB.OpenRecordset(SQL)
 Do While Not Rs.EOF
 Brojac = Brojac + 1
 Slaganje = KLASA & "." & Str(Brojac)
 Rs.Edit
 Rs!Slaganje = Slaganje
 Rs.Update
 Rs.MoveNext
 Loop
Rs.Close
End Function

Function Pasus(K As Integer) As String
Dim I As Integer
I = K
Do While I > Brojac
I = I - 1
Pasus = Pasus & "  "
Loop

End Function