<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Option Compare Database
Option Explicit
Dim Vr As Single

Private Sub Form_Current()
Dim KlcStanje

Me.Stanje.RowSource = Me.Stanje.RowSource
KlcStanje = Me.Klc
If Format$(KlcStanje) = "" Then
Vr = 0
Else
Vr = Val(KlcStanje)
End If
Me.StanjeT = Me.Stanje.Column(1)
End Sub

Private Sub Klc_AfterUpdate()
Dim StanjeAf
Dim StanjeQ As Single
Dim StanjeT As Single
Dim K
Dim P As Single

StanjeAf = Me.Klc
If Format$(StanjeAf) = "" Then GoTo Kraj
StanjeQ = Me.Stanje.Column(1)

K = Forms![frm_Doc]![vrdoc]
If Format$(K) = "" Then GoTo Kraj
If Val(K) = 1 Then
P = 1
E