Private Sub  Kol_Exit(Cancel As Integer)
Dim a As Integer
 Dim b As Double
 Dim c As Double

 a = Me.Izlaz1_Art
 b = SaldoPozitivno(a)

 c = Kol - b

If Kol > b Then
MsgBox ("Smanji koli
inu za" & " " & c)
Me.kol==Me.kol-c
Cancel=-1
 End If

 End Sub