<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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_