<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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.MoveNex