Customizirani DefaultValue

[ electroNik @ 17.03.2006. 22:45 ] @

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.

[ Zidar @ 20.03.2006. 20:51 ] @

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

[ mysybername @ 21.03.2006. 11:31 ] @

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.

[ electroNik @ 21.03.2006. 18:55 ] @

@ 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]}