Option Compare Database
Option Explicit

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

Kom = 0
KontrolaKomada = False
Rekord = Forms![frmEvidencija]![frmRadneOperacije].Form.Tag
Set Rs = Me.RecordsetClone
Rs.MoveFirst
Do While Not Rs.EOF
Kom = Kom + Rs!komada
Rs.MoveNext
Loop
If Rekord > 1 Then
 If Format$(Me.Tag) = "" Then GoTo Kraj
    If Kom > Val(Me.Tag) Then
    MsgBox "vaš unos mora biti manji od: " & Val(Me.Tag) + 1
    Me.komada = 0
    KontrolaKomada = True
    End If
Else
Me.Tag = Kom
End If
Kraj:
End Function

Private Sub komada_Exit(Cancel As Integer)
Cancel = KontrolaKomada
End Sub