Tablica = "Skladista"
Tablica_2 = "tblTransakcije"

Set SL_Pocetna = Db.OpenRecordset(Tablica, dbOpenDynaset)
Set SL_Zavrsna = NovaDb.OpenRecordset(Tablica_2, dbOpenDynaset)

If SL_Pocetna.RecordCount > 0 Then
        SL_Pocetna.MoveFirst
        While Not SL_Pocetna.EOF
            With SL_Zavrsna
            .AddNew
                ![Skladiste] = SL_Pocetna![IDSkladista]
                
       '(ovdje ima još kolona ali nisu bitne)  

            .Update
        End With
         SL_Pocetna.MoveNext
        Wend
   End If