Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Private Sub Form_Current() Dim Rs As Recordset Dim suma As Integer Dim Iznos As Integer Dim ID As Integer Set Rs = Me.RecordsetClone If Rs.RecordCount = 0 Then GoTo Kraj Rs.MoveLast Rs.MoveFirst On Error Resume Next Do While Not Rs.EOF Iznos = Rs!Ulaz If Err.Number > 0 Then Iznos = 0