Predmet:Re: Pomoć oko procedure

---

Posto si sve uradio necu nista reci nego samo zakrpaj.
on error resume next
stanje_na_drugom_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _
"[Skladiste] Not Like forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra")
if err.number=BrojGreskeKojaseJavlja then
err.clear
on error goto 0
stanje_na_drugom_skladistu =0
elseif err.nuber>0 then
MsgBox "Nekad druga greska" & vbcr "Ako je sve OK ovo nece nikad proraditi"
endif

---