Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function TotalX(ID As Integer) Dim Db As Database Dim Rs As Recordset Dim SQl As String Dim Zbir As Single 'On Error Resume Next Set Db = CurrentDb() SQl = "SELECT TOP 2 Brojcanik " _ & "FROM Tabela " _ & "WHERE ID_Podatok <= " & ID _ & " ORDER BY ID_Podatok DESC" Set Rs = Db.OpenRecordset(SQl) Rs.MoveLast Rs.MoveFirst If Rs.RecordCount = 1 T