Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Option Compare Database Option Explicit Function KontrolaKomada() As Boolean Dim Rs As Recordset Dim Kom As Integer Dim Rekord As Integer Kom = 0 KontrolaKomada = False Rekord = Forms![frmEvidencija]![frmRadneOperacije].Form.Tag Set Rs = Me.RecordsetClone Rs.MoveFirst Do While Not Rs.EOF Kom = Kom + Rs!komada Rs.MoveNext Loop If Rekord > 1 Then If Format$(Me.Tag) = "" Then GoTo Kraj If Kom > Val(Me.Tag) Then MsgBox "vaš unos mora biti manji od: " & Val(Me.Tag) + 1 Me.komada = 0 Kontrola