set number to increase for each record without duplicates

[herolinon]

i want to number , this number increase to each record , no duplicate number. i want to making by access VBA code.

[zmbd]

There are many examples of this here on bytes.
The basic concept is to find the maximum value of field, you can do this any number of ways, the most straight forward is using the DMAX().
From there you increment your returned value, open your record-set and so forth.

Please keep in mind, Bytes is not a code nor homework service.
If you will post the VBA code you currently have along with any errors we can help you solve them or correct your code once the basic troubleshooting has been done.