trebam dodjeliti novi broj naloga i desava se ovo
****************
Function BrNaloga() As Long
Dim lngBroj As Long
lngBroj = 1 + Nz(DMax("txtBrNaloga", "tblNalog"), 0)
BrNaloga = lngBroj
End Function
*******************
ovu funkciju pozivam na OnClick
otvara se novi record i dobivam novi broj
radilo je do broja 10
kada sam pokusao dodati nalog broj 11 , dobijam ponovo broj 10 ,
Sa ovim dobijam isto samo je druga maska
************************
If IsNull(DLookup("txtBrNaloga", "tblNalog")) Then
Me.txtBrNaloga = Format$("1", "000000")
Else
Me.txtBrNaloga = Format$((DMax("txtBrNaloga", "tblNalog")) + 1, "000000")
End If
*************************
ovo takodje daje isto
*********************
=Nz(DMax("[txtBrNaloga]";"tblNalog");0)+1
*********************
jos jedna stvar , na formi imam list box sa spiskom naloga ,
uopste ih nemogu sortirati
reda ih
1
10
11
12
2
3
...
9
gdje grijesim ?
mozda tip polja ili ???
[Ovu poruku je menjao n3mir dana 01.03.2010. u 05:21 GMT+1]