Prikazi cijelu temu 11.07.2012 16:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Limitiranje upisa količine
Forma radne operacije
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3.  
  4.  
  5. Private Sub Form_Current()
  6. 'Written by Helen Feddema 4-Oct-2007
  7. 'Last modified 4-Oct-2007
  8.  
  9. On Error GoTo ErrorHandler
  10. Call Rekord
  11.    Me.txtSelectedID.Value = Me.BROJ_OP
  12.    
  13. ErrorHandlerExit:
  14.    Exit Sub
  15.  
  16. ErrorHandler:
  17.    MsgBox "Error No: " & Err.Number & "; Description: " & _
  18.       Err.Description
  19.    Resume ErrorHandlerExit
  20.  
  21. End Sub
  22.  
  23.  
  24. Function Rekord()
  25. On Error Resume Next
  26. Dim Bok As Integer
  27. Bok = Me.Recordset.AbsolutePosition + 1
  28. Me.Tag = Bok
  29. End Function

forma realizacijasub
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. Function KontrolaKomada() As Boolean
  5. Dim Rs As Recordset
  6. Dim Kom As Integer
  7. Dim Rekord As Integer
  8.  
  9. Kom = 0
  10. KontrolaKomada = False
  11. Rekord = Forms![frmEvidencija]![frmRadneOperacije].Form.Tag
  12. Set Rs = Me.RecordsetClone
  13. Rs.MoveFirst
  14. Do While Not Rs.EOF
  15. Kom = Kom + Rs!komada
  16. Rs.MoveNext
  17. Loop
  18. If Rekord > 1 Then
  19.  If Format$(Me.Tag) = "" Then GoTo Kraj
  20.     If Kom > Val(Me.Tag) Then
  21.     MsgBox "vaÅ¡ unos mora biti manji od: " & Val(Me.Tag) + 1
  22.     Me.komada = 0
  23.     KontrolaKomada = True
  24.     End If
  25. Else
  26. Me.Tag = Kom
  27. End If
  28. Kraj:
  29. End Function
  30.  
  31. Private Sub komada_Exit(Cancel As Integer)
  32. Cancel = KontrolaKomada
  33. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.