Otomatik sayı kullanmak istemez iseniz şu şekildede yapabilirsiniz. Benim kullandığım yöntemlerden birisidir. tablo uzantısını metin yapıp. kendim sayı vermekteyim. ekle butonuna kaydederek yapıyorum. ilk baş tabloya bakıyor eğer hiç kayıt girilmemiş ise 00000001 numarasını veriyor. eğer kayıt girilmiş ise en son kaçta kaldı ise bir arttırarak yeni bir sayı veriyor.

Alttaki kod tabloya bakıp bir arttırarak gidiyor.

 Me.Form_Alan_Adı = Format(DMax("Tablo_Alan_Adı", "Tablo_Adı") + 1, "00000000")

alttaki kod ise alan null yani boş ise daha önce hiç kayıt girilmedi ise 00000001 rakamını atıyor.

If IsNull(Me.Form_Alan_Adı) Then Me.Form_Alan_Adı = "00000001"

alttaki kod ise yanlışlıkla bir rakam girilip sonradan silindi ise yani boş fakat null özelliği taşımıyor ise 00000001 rakamını veriyor

If Me.Form_Alan_Adı = "" Then Me.Form_Alan_Adı = "00000001"

Bunları yaptığım metin kutusunu ise kilitliyorum ki kullanıcı tarafından yanlışlıkla dahi olsa bir rakam girilememesi için hata oranı hiç kalmıyor.