Private Sub Form_AfterInsert()
Dim Baza As Database
Dim SL_Staro As Recordset
Dim SL_Novo As Recordset

Set Baza = CurrentDb()
Set SL_Staro = Baza.OpenRecordset("tblKombinacija", dbOpenDynaset)
Set SL_Novo = Baza.OpenRecordset("tbl_Zbirna", dbOpenDynaset)

If SL_Staro.RecordCount > 0 Then
SL_Staro.MoveLast
While Not SL_Staro.EOF
With SL_Novo
.AddNew
![kat] = 0
![IDStroja] = SL_Staro![IDStroja]
![IndexSklop] = SL_Staro![IndexStroj]
![IDdijela] = SL_Staro![IDdijela]
![Kom] = SL_Staro![Kom]
![sort] = 0
.Update
End With
SL_Staro.MoveNext
Wend
End If

End Sub