Predmet:Re: prikaz stanja

---

evo ja sam je isprobao ovdje i sa polje.
Mora biti u nekom modulu procedura.
Private Sub proizvod_AfterUpdate()
Pproizvod = Me.proizvod
Dim Stanje As Single
' Dim st As Integer
'st = Nz(DLookup("SUMA", "QSUMA", "proizvod = '" & Me.proizvod & "'"), 0)
' Me.txtZalihe = st
' Me.txtZalihe.BackColor = 16777215
'If st < Me.kizlaz Then
' Me.txtZalihe.BackColor = 8454143
' MsgBox "Žao nam je ali na stanju imate samo: " & st, vbCritical, "Izaberite drugu količinu"
'
' DoCmd.RunCommand acCmdUndo

' Else
Stanje = StanjeP(proizvod)

---