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
Else
P = (-1)
End If

StanjeT = Vr - StanjeAf
StanjeT = StanjeQ - (StanjeT * P)
Me.StanjeT = StanjeT
Izlaz:
Exit Sub
Kraj:
Me.StanjeT = 0
End Sub