- 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