[es] - Customizirani DefaultValue

electroNik
Nikola Milenković
Srbija

Član broj: 46941
Poruke: 78
*.smin.sezampro.yu.

Profil

^{17.03.2006. u 22:45 - pre 220 meseci}

Hoću da napravim polje RedniBroj čije DefaultValue svojstvo zavisi od prethodno unetih rednih brojeva, ali da to ne bude autonumber.
Imam SELECT TOP 1 query (qryNajveciRB) koji nalazi trenutni najveći redni broj i funkciju koja vraća sledeći RB koji treba da bude DefaultValue:

Code:
Private Function SledeciRB()
'Funkcija koja vraca sledeci broj za polje RedniBroj
Dim intSlBr As Integer
intSlBr = 1 + Nz(DMax("RedniBroj", "qryNajveciRB"), 0)
SledeciBroj = intSlBr
End Function

Sad mi nije jasno kako ovu funkciju da implementiram da bude DefaultValue. Koje evente treba da koristim da bi ovo proradilo?
Probao sam da ubacim u event OnLoad forme (me.RedniBroj.DefaultValue = SledeciBR) ali to ne radi.
Ako neko zna drugačiji način rešenja ovog problema, neka postuje ovde, pa da isprobam. Sa ovim polovičnim rešenjem sam se zaglavio.

Gone Shootin'

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com.

+79 Profil

Re: Customizirani DefaultValue

^{20.03.2006. u 20:51 - pre 220 meseci}

Otvori formu u Design modu.
U Default value za text box unesi =SledeciRB()
I to je sve.

Odgovor na temu

mysybername

Član broj: 78743
Poruke: 46
*.ptt.yu.

Profil

Re: Customizirani DefaultValue

^{21.03.2006. u 11:31 - pre 220 meseci}

Ja sam nesto slicno pito ovde:
http://www.elitesecurity.org/tema/167003-Record-counter

Mada meni odgovor nije najjasniji, valjda jer sam pocetnik pa ne znam dovoljno, ali mozda tebi nesto vise znaci.

Ipak ovo sto meni treba izgleda nije isto, ako sam dobro shvatio tvoji redni brojevi za odredjeni rekord kada jednom budu odredjeni u tabeli vise se nece menjati, a meni je potrebno da redni broj rekorda bude promenljiv u zavisnost kako filtriram rekorde u odredjenoj formi. Tj, ako npr. promenim u formi redosled ili broj rekorda sortiranjem ili filtriranjem onda i redni brojevi za te rekorde se moraju izmeniti.

Vule

Odgovor na temu

electroNik
Nikola Milenković
Srbija

Član broj: 46941
Poruke: 78
*.adsl.sezampro.yu.

Profil

Re: Customizirani DefaultValue

^{21.03.2006. u 18:55 - pre 220 meseci}

@ Zidar: Hvala, radi.
Mada, morao sam da dodam dve linije koda u AfterInsert event da bi sve radilo kako treba:
Me.Requery
DoCmd.GoToRecord , , acNewRec 'jer me Requery metod bacao na prvi unos (u datasheet pregledu).

_{[Ovu poruku je menjao electroNik dana 21.03.2006. u 19:57 GMT+1]}

Gone Shootin'

Odgovor na temu