Predmet:Re: Limitiranje upisa količine
PreuzmiIzvorni kôd (Visual Basic):Function KontrolaKomada() As Boolean
Dim Rs As Recordset
Dim Kom As Integer
Dim T
Kom = 0
KontrolaKomada = False
T = Forms![frmEvidencija]![frmRadneOperacije].Form.Tag
Set Rs = Me.RecordsetClone
Rs.MoveFirst
Do While Not Rs.EOF
Kom = Kom + Rs!komada
Rs.MoveNext
Loop
If Format$(T) = "" Then GoTo Kraj
If Kom > Val(T) Then
MsgBox "Vaš unos mora biti manji od: " & Val(T) + 1
Me.komada = 0
KontrolaKomada = True
End If
Kraj:
End Function
PreuzmiIzvorni kôd (Visual Basic):Function Rekord()
Dim Db As Database
Dim Rs As Recordset
Dim Bok As Integer
Dim SQL As String
On Error Resume Next
Set Db = CurrentDb()
Set Rs = Me.RecordsetClone
Rs.Bookmark = Me.Bookmark
Rs.MovePrevious
Bok = Rs!BROJ_OP
Set Rs = Nothing
If Bok = 0 Then
Me.Tag = ""
Else
SQL = "SELECT komada FROM tblRealizacija WHERE broj_op=" & Bok & " AND Broj=" & Forms![frmEvidencija]![broj]
Set Rs = Db.OpenRecordset(SQL)
Bok = 0
Do While Not Rs.EOF
Bok = Rs!komada + Bok
Rs.MoveNext
Loop
Me.Tag = Bok
End If
Set Rs = Nothing
Set Db = Nothing
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.