Function SifraN()

Dim DB As Database
Dim SQL As String
Dim Rs As Recordset
Dim I As String

Set DB = CurrentDb
SQL = "SELECT Last(PROCES.ID) AS LastOfID " & "FROM PROCES"
Set Rs = DB.OpenRecordset(SQL)
If Format$(Rs.Fields(0)) <> "" Then
I = Val(Rs.Fields(0))
End If
I = I + 1
SifraN = Format(I, "0000000")
Rs.Close
Set DB = Nothing

End Function