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
Err.Clear
End If
ID = Rs!IDDokumenta
If ID = 1 Then
Iznos = 0
End If
suma = suma + Iznos
Rs.MoveNext
Loop
Kraj:
Me.suma = suma
Exit Sub
End Sub