<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 ID_Artikl_AfterUpdate()
Dim Db As Database
Dim Rs As Recordset
Dim IDArt As Integer
Dim Rs1 As Recordset
Dim Trazi As String

Set Rs1 = Forms![frmRadniList]![subfrmQueryRadniListStavke].Form.RecordsetClone
IDArt = Me.ID_Artikl
Set Db = CurrentDb

Set Rs = Db.OpenRecordset("SELECT ID_ArtiklStavke FROM TblArtiklStavke WHERE ID_Artikl=" & IDArt)
Do While Not Rs.EOF
Trazi = "ID_ArtiklStavke=" & Rs.Fields(0)
   With Rs1
   If Rs1.RecordCount > 0 Then
        .MoveLast
     End If
        .FindFirst Trazi
        If .NoMatch Then
        Forms![frmRadniList]![subfrmQueryRadniListStavke].SetFocus
        Rs1.AddNew
        Rs1!