Predmet:Kako prekinuti izvršavanje naredbe?

---

Možda ste već opisivali ovaj problem ali ja nisam nigdje uspio pronaći, pa ću otvoriti novu temu.

Imam polje "Kol" u koje unosim količinu robe koju želim prodati. Napisao sam proceduru koja mi vraća raspoloživo stanje odabranog artikla, zatim to stanje uporedim sa količinom koju sam upisao. U slučaju da sam upisao veću količinu od one koja je raspoloživa, vraća mi poruku da smanjim količinu za razliku između zadate količine i stvarnog stanja.

Taj dio mi dobro funkcioniše, sad mi je potrebno da dodam dio koji će, u slučaju kada je upisana količina veća od raspoložive, nakon poruke o pogrešno upisanoj količini prekinuti izvršavanje naredbe, količinu vratiti na nulu i zadržati fokus na polju "Kol".

Private Sub Kol_BeforeUpdate(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)
End If

End Sub

Molim vas za pomoć. Samo me malo uputite, a ja ću doći do rješenja.

Kako na forumu postavljate procedure i ostale naredbe da je moguć download?