pmiroslav | 24.11.2011 12:56 |
---|---|
Predmet:Pomoć oko procedure Imam formu sa subformom koja služi za ispisivanje otpremnice. Da bih izbjegao mogućnost upisa količine koja je veća od stanja na skladiÅ¡tu u subformi na Text Box Quantity na onExit dodao sam proceduru koja provjerava stanje i upozorava ako je upisano stanje veće od stanja na skladiÅ¡tu. S obzirom da u mom slučaju artikli sa istom Å¡ifrom mogu fizički biti na dva različita skladiÅ¡ta dodao sam i mogućnost da se provjeri da li ista Å¡ifra postoji i na drugom skladiÅ¡tu te da me obavijesti o tome. Ovo radi ako Å¡ifra postoji, ali ako je nema na drugom skladiÅ¡tu tada se javlja poruka ' INVALID USE OF NULL' Problem je dio: stanje_na_drugom_skladistu = DLookup("[Stanje]", "[Q_Stanje]", _ "[Skladiste] Not Like forms![frmOtpremnica].[Skladiste] And [sifra] = forms![frmOtpremnica]![frmOtpremnicaSub].form!Sifra") Molim pomoć kako da ovo zaobiđem. Hvala PreuzmiIzvorni kôd (vbnet):
|
zxz | 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 |
pmiroslav | 24.11.2011 14:28 |
---|---|
Predmet:Re: Pomoć oko procedure Hvala na brzom odgovoru. Do sada sam to isprobavao ali ne radi. GreÅ¡ka koja mi se javnja be daje mi broj greÅ¡ke Err_Number Evo Å¡aljem primjer |
|
Prilozi: ProbaMP.rar (Velicina datoteke: Bajt) |
zxz | 24.11.2011 18:09 |
---|---|
Predmet:Re: Pomoć oko procedure hehe ti prekopirao moj kod a ja direktno kucao na forumu pa napisao err.nuber Evo ti samo sam ispravio. PreuzmiIzvorni kôd (Visual Basic):
Nisam gledao kako si stanje napravio ali bi bilo interesantno sta bi bilo kada imas vise od 2 skladista. Hehe onda ovo bas nebi islo. Ako je takvo stanje javi. |
pmiroslav | 25.11.2011 08:29 |
---|---|
Predmet:Re: Pomoć oko procedure Nažalost joÅ¡ neće. Stalno ista greÅ¡ka "Invalid use of null" A Å¡to se tiće skladiÅ¡a, ima ih u mom slučaju samo dva na kojem se mogu pojavljivati isti artikli. |
|
Prilozi: ProbaMP_2.rar (Velicina datoteke:75.85 KB) |
pmiroslav | 25.11.2011 10:26 |
---|---|
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 |