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?