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