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!ID_RadniList = Me.ID_RadniList Rs1!ID_ArtiklStavke = Rs.Fields(0) Rs1.Update End If End With Rs.MoveNext Loop End Sub