Önceki cevabımı sorduğunuz soruya göre yazdım. Ama sanırım verdiğim cevap ile isteğinizin hiçbir ilgisi yok.

tanım isimli metin kutusunun girildiğinde olayına veya farklı bir metin kutusu veya açılan kutunun güncellenme sonrasında olayına aşağıdaki kodu yaz.

    Dim sira As String

    sira = DMax("[sırano]", "[barkod]", "[id]")

        If IsNull(Me.sırano) Then

            Me.sırano = sira + 1

        End If

bu kod ile bir önceki sayının bir fazlasını sayı metin kutusuna yazar.

sayıyı 416'dan devam ettirmek istersen boş sayı metin kutusuna 416 yaz, sanraki kayıtlar 416'dan itibaren devam eder.

Ayrıca; 23:06'da mesaj yazıp, 23:06'da siteden ayrılmayınız.
Sorunuza çözüm bulmak için vakit ve emek harcıyoruz.

ozan bey, teşekkür ederim öncelikle, bu kadar basit olduğunu düşünüyordum ben de
sıra numarası alanından sonrasını artırmasını akıl edemedim..

siteye soruyu ekleyince zorunlu olarak çıkıyorum, çünki ödev için sıra bekliyorlar.
araya giriyorum
ilginize teşekkürler.. kolay gelsin.