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
zxz