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:
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.
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
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.
Potpis
Gone Shootin'