Public Function KopirajPodatke()

    Dim db As DAO.Database
    Dim qd As DAO.QueryDef
    Dim rs As DAO.Recordset
    Dim rst As DAO.Recordset
    
    Set db = CurrentDb()
    Set qd = db.QueryDefs("qIzQuery") ' Query iz kojeg se kopiraju podaci
    Set rs = qd.OpenRecordset
    Set rst = CurrentDb.OpenRecordset("Select * From tblUOvuTabelu") ' Tabela u koju se kopiraju podaci
    
    While Not rs.EOF
        rst.AddNew
            rst!Rekord1.Value = rs!Rekord1.Value ' Rekordi koji se kopiraju
            rst!Rekord2.Value = rs!Rekord2.Value
        rst.Update
        rs.MoveNext
    Wend
    rst.Close
    rs.Close
    Set rs = Nothing
    qd.Close
    Set qd = Nothing
    db.Close
    Set db = Nothing
    
End Function