Function OnisiID()
Dim Db As Database
Dim Rs As Recordset
Dim Sql As String
Dim I As Single
Dim IStr As String * 8

Sql = "SELECT PROCES.ID_String FROM PROCES"

Set Db = CurrentDb
Set Rs = Db.OpenRecordset(Sql)
Rs.MoveFirst
Do While Not Rs.EOF
I = I + 1
IStr = Format(I, "00000000")
Rs.Edit
Rs.Fields(0) = IStr
Rs.Update
Rs.MoveNext
Loop
End Function