Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function UradiRN() Dim strSQL As String Dim rst As DAO.Recordset strSQL = "SELECT * FROM QPrometMPzaRadniNalog ORDER BY DatumK ASC" 'DESC Set rst = CurrentDb.OpenRecordset(strSQL) If rst.RecordCount > 0 Then rst.MoveFirst Do Until rst.EOF RadniNalog (rst!DatumK) rst.Edit rst!Knjizen = True rst.Update rst.MoveNe