Function KontrolaKomada() As Boolean
Dim Rs As Recordset
Dim Kom As Integer
Dim T

Kom = 0
KontrolaKomada = False
T = Forms![frmEvidencija]![frmRadneOperacije].Form.Tag
Set Rs = Me.RecordsetClone
Rs.MoveFirst
Do While Not Rs.EOF
Kom = Kom + Rs!komada
Rs.MoveNext
Loop

 If Format$(T) = "" Then GoTo Kraj
    If Kom > Val(T) Then
    MsgBox "Vaš unos mora biti manji od: " & Val(T) + 1
    Me.komada = 0
    KontrolaKomada = True
    End If
Kraj:
End Function