Function Slaganje(kat As Integer, Stroj As String)
Dim Baza As Database
Dim Ulazna As Recordset
Dim Zavrsna As Recordset
Dim Dio As String
Dim Cjelina As String

CurrentDb.Execute "DELETE*FROM[tblShema]"
Set Baza = CurrentDb()
Set Ulazna = Baza.OpenRecordset("tblShemaMontaze", dbOpenDynaset)
Set Zavrsna = Baza.OpenRecordset("tblShema", dbOpenDynaset)
Dio = Ulazna![IDDijela]
Cjelina = Ulazna![IDStroja]

If Ulazna.RecordCount > 0 Then
Ulazna.MoveFirst
Do While Not Ulazna.EOF

If Ulazna![kategorija] = kat And Ulazna![IDStroja] = Stroj Then

With Zavrsna
.AddNew
![kategorija] = Ulazna![kategorija]
![IDStroja] = Ulazna![IDStroja]
![Index] = Ulazna![IndexSklop]
![IDDijela] = Ulazna![IDDijela]
![kom] = Ulazna![kom]
.Update
End With
End If

If Dio = Cjelina Then ' Tu bi trebalo ako je IDdijela postoji u Koloni IDstroja
                      ' da u nastavku ispiše posdatke o njemu
With Zavrsna
.AddNew
![kategorija] = Ulazna![kategorija]
![IDStroja] = Ulazna![IDStroja]
.Update
End With

End If

Ulazna.MoveNext
Loop
End If
End Function