Private Sub Kolicina_Exit(Cancel As Integer)
Dim Kolicina As Single
Dim Maks As Single

Maks = [Forms]![Forma1]![Forma2].[Form]![Broj]
Kolicina = Me.Kolicina.OldValue
If Kolicina > Maks Then
Me.Kolicina = Maks - 1
Cancel = True
End If
End Sub