Prikazi cijelu temu
24.11.2011 13:37
24.11.2011 13:37
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
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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.