Centar za edukaciju-BiH

Predmet:Redni brojevi, kako izbjeći greÅ¡ku?

---

Pozdrav.

U funkciji imama dio kojim određujem broj gotovinskog računa:

Brojevi idu u nizu 1,2,3,4 itd.
U par navrata dogodilo se iz meni nepoznatog razloga da se jedan broj preskoči, a kako brojevi računa moraju imati jedinstveni slijed, to se ne smije događati.
Ima li prijedlog kako da spriječim preskakanje broja.

---

Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?

---

I =nz(DMax("[FiskalniBroj]", "tblProdaja")) + 1

ja koristim jos nz

pokusaj
pozdrav

Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?

---

Do preskakanja bi moglo doci zbog jednovremenosti u mrezi tj. da se desi da dvoje zajedno sa dva razlicita compa rade.
Jos se moze desiti i ako neko udje pa otvori novi rekord te ga pobrise i onda ne izlazi nego nastavi.
Najbolji i najsigurniji nacin je da nema brisanja.

Dobro bi bilo kada bi dokucio kada se to desava pa bi se mozda moglo vise uciniti.
Ovako mozes jos napraviti provjeru tj. da provjris koliko imas rekorda u tabeli jer broj rekorda +1 bi bio tvoj novi broj.

---

Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?

---

Kaj mene nema preskoknuvajne bidejki kako sto rece ZXZ nema brisejne na racunite , odnosno ima samo korekcija na nekoi polijna dokolku e potrebno, inaku jas kaj mene zemam vo obzir poveke parametri za redniot broj kako sto e Magacinot,Tip na dokument i slicni raboti.

Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?

---

U ovom slučaju je samo jedan korisnik tako da mogu isključiti uzrok zbog jednovremenosti. Pitao sam korisnika dali se desilo neÅ¡to nepredviđeno a on mi kaže da nije
A Å¡to se tiče provjer koliko ima rekorda i to sam imao:

I = DCount("[FiskalniBroj]", "tblProdaja") + 1

I tu su zapravo počeli problemi

imam recimo : 1,2,3,4,6. Znači zadni broj je 6, a imam pet rekorda pa se ponovo generira broj 6 i dobijem duli broj u primarnom ključu

---

Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?

---

Uf to mijenja stvar ako ima samo jedan korisnik.
Njabolje bi bilo kada bi imao neki laksi primjer ako ne probaj ovako:
Na on current stavi sledeci kod.
I = DCount("[FiskalniBroj]", "tblProdaja") + 1
me.fiskalniBroj.defaultValue=I

Naravno polje FiskalniBroj mora biti zakljucano.

---

Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?

---

Jas kaj mene go imam vaka reseno

Smetka_Broj.DefaultValue = SlijedenBroj()

Private Function SlijedenBroj()
Dim Broj As String
Broj = DMax("Smetka_Broj", "tblSmetki", "Magacin=" & Forms![frmLogon]![cboMagacin]) + 1
If IsNull(Broj) Or Broj = "" Then Broj = 1
SlijedenBroj = Broj
End Function

Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?

---

Stavit ću skraćeni primjer u kojem se javlja problem. Namjerno sam prekočio jedan broj da se vidi Å¡to se deÅ¡ava.

Prilozi:

---

Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?

---

eve probaj vaka

Prilozi:

Predmet:Re: Redni brojevi, kako izbjeći greÅ¡ku?

---

Razlog preskakanja je to sto ako pogrijesis nacin placanja pa se vratis nazad da promijenis sada ce ponovo upisati broj koji je veci ne za 1 od trenutnog.
Najbolje bi bilo staviti sve na dfault value kao sto je Gjoreski predlozio medjutim kod tebe to nemoze koliko sam mogao zakljuciti jer ti ides redno za svaki nacin placanja zasebno pa se nemoze generisati broj prije odabira nacina placanja.
Preostaje ti da ovo svoje pokrpas:

---