Prikazi cijelu temu 11.07.2012 19:10
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Limitiranje upisa količine
PreuzmiIzvorni kôd (Visual Basic):
  1. Function KontrolaKomada() As Boolean
  2. Dim Rs As Recordset
  3. Dim Kom As Integer
  4. Dim T
  5.  
  6. Kom = 0
  7. KontrolaKomada = False
  8. T = Forms![frmEvidencija]![frmRadneOperacije].Form.Tag
  9. Set Rs = Me.RecordsetClone
  10. Rs.MoveFirst
  11. Do While Not Rs.EOF
  12. Kom = Kom + Rs!komada
  13. Rs.MoveNext
  14. Loop
  15.  
  16.  If Format$(T) = "" Then GoTo Kraj
  17.     If Kom > Val(T) Then
  18.     MsgBox "VaÅ¡ unos mora biti manji od: " & Val(T) + 1
  19.     Me.komada = 0
  20.     KontrolaKomada = True
  21.     End If
  22. Kraj:
  23. End Function
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Rekord()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Bok As Integer
  5. Dim SQL As String
  6.  
  7.  
  8. On Error Resume Next
  9. Set Db = CurrentDb()
  10. Set Rs = Me.RecordsetClone
  11. Rs.Bookmark = Me.Bookmark
  12. Rs.MovePrevious
  13. Bok = Rs!BROJ_OP
  14. Set Rs = Nothing
  15. If Bok = 0 Then
  16. Me.Tag = ""
  17. Else
  18. SQL = "SELECT komada FROM tblRealizacija WHERE broj_op=" & Bok & " AND Broj=" & Forms![frmEvidencija]![broj]
  19. Set Rs = Db.OpenRecordset(SQL)
  20. Bok = 0
  21. Do While Not Rs.EOF
  22. Bok = Rs!komada + Bok
  23. Rs.MoveNext
  24. Loop
  25. Me.Tag = Bok
  26. End If
  27. Set Rs = Nothing
  28. Set Db = Nothing
  29. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.