Prikazi cijelu temu 13.07.2012 10:31
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Limitiranje upisa količine
Ovo sve radi OK jedino bih htio popraviti joÅ¡ neke kozmetičke srvari. Problem mi je dio:
PreuzmiIzvorni kôd (vbnet):
  1. If Format$(T) = "" Then GoTo Kraj
  2.     If Kom > Val(T) Then
  3.     MsgBox "VaÅ¡ unos mora biti manji od: " & Val(T) + 1
  4.     Me.komada = 0
  5.     KontrolaKomada = True
  6.     End If
i
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub komada_Exit(Cancel As Integer)
  2. Cancel = KontrolaKomada
  3. End Sub
Ovime se u textBox 'komada' upiÅ¡e 0, a ja bih trebao da se taj pogreÅ¡an red potpuno obriÅ¡e, kako bi se mogao vratiti u prvu subformu i izabrati bredhodnu radnu operacij pa tamo daoadi količinu koja možda greÅ¡kom nije upisana.
Pozdrav