Dali je moguć AutoNumber u obliku 0001.........do 1000

Treba mi ispisivanje AutoNumbera u obliku 001....... pa do 1000.Dali je to moguce?

Ako ti samo treba ispisivanje, upotrebi Format funkciju, ovako

Ispis=Format(TvojeAutonumberPolje,"0000")

Ako ti treba da se zaista cuvaju vrednosti 0001, 0002 pa nadalje, treba da napises funkciju koja ce se izvrsiti svaki put kad doadjes novi rekord. Funkcija bi izracunavala sledeci broj. Mislim da u bazi znanja imas primer takve funkcije.

:-)

Konkretno ako iz forme dam komandu Štampaj da u izveštaju bude AutoNumber odštampan u obliku 001.Pošto sam početnik može li malo detaljnije.A u top temama nisam mogao naći.Unapred zahvaljujem.

Stampanje brojeva sa vodesim nulama, jedan nacin:

1) kreiraj kontrolu - text box txtAutoNumber na reportu
2) stavi Control Source da bude


:-)

Function Broj(ImeTabele As String, ImePolja As String)
Dim Db As Database
Dim Rs As Recordset
Dim SQL As String
Dim R As String
Dim DuzinaS As Integer

Set Db = CurrentDb()
SQL = "SELECT " & ImePolja & " FROM " & ImeTabele

Set Rs = Db.OpenRecordset(SQL)
On Error Resume Next
Rs.MoveFirst
Rs.MoveLast
R = Rs.RecordCount + 1
Rs.Close
DuzinaS = Len(R)
Select Case DuzinaS
Case 1
R = "000" & R
Case 2
R = "00" & R
Case 3
R = "0" & R
End Select
Broj = R
End Function
_____________
A ovo stavi na default value tog polja na formi
=Broj("ImeTabele";"ImePolja")
Polje treba da bude text sa 5 karaktera
Sretno

Potpis

zxz