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ı veriyorIf 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.