Predmet:Re: Pomoć oko procedure

---

Uspio sam riješiti problem.

***dodao sam ovu provjeru***

If Not IsNull (DLookup("[Stanje]", "[Q_Stanje]", _
"[Skladiste] Not Like forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra")) Then

stanje_na_drugom_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _
"[Skladiste] Not Like forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra")

MsgBox " Prva poruka"

Else

MsgBox "Druga Poruka"

End If

---