Prikazi cijelu temu 01.01.2013 23:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: zabraniti unos količine manji od 0
Na formi Box na tasteru dalje stavi ovaj kod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command7_Click()
  2. Dim KolSum As Single
  3. Dim proizvod As String
  4. Dim Ulaz As Single
  5.  
  6. proizvod = Forms![kasa]![detalji].Form![proizvod]
  7. KolSum = DLookup("suma", "QSUMA", "Proizvod='" & proizvod & "'")
  8. Ulaz = Me.Ulaz
  9. If Ulaz > KolSum Then
  10. MsgBox "Ima samo:" & KolSum
  11. Me.Ulaz = KolSum
  12. Me.Ulaz.SetFocus
  13. GoTo Kraj
  14. End If
  15.            If Me.Ulaz <> "" Then
  16.               strOdg = Me.Ulaz
  17.               DoCmd.Close
  18.            End If
  19. Kraj:
  20. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.