Private Sub komada_Exit(Cancel As Integer)

If BrKom <> 0 Then
    If Me.komada > BrKom Then
    MsgBox "nemožete upisati više od: " & BrKom
    Cancel = -1
    End If
End If
BrKom = Me.komada

End Sub