Access otomatik sayı yerine altarnatif?

[ikikan]

Arkadaşlar aradım taradım otomatik sayı yerine kullanılabilir bir kod bulamadım
lakin excelde vba örnekleri var aşadaki gibi.
Bir düşünce olarak otamatik sayıyı sıfarlama derdinden kurtaracak
bir vba veya benzer bir kod varmıdır?

If Intersect(Target, [B5:B6500]) Is Nothing Then Exit Sub
Cancel = True
Son = [B6500].End(3).Row
If Son > 6500 Then Son = 6500
For i = 4 To Son
Cells(i, "A").Value = i - 4
Next i

 

[Taruz]

Merhaba..

Bunun için DMAX fonksiyonunu formda veri girişi yaparken kullanabilirsiniz..:

alanadi=dmax("otomatiksayialani","tabloadi")+1

Bu fonksiyon tablodaki en yüksek sırano değerinin bir fazlasını yeni kayıt olarak verir..