Merhaba; kaydet butonuna bastığınızda başka bir kullanıcıda bassa arada fark olacağı için zaman farkı.  

 

Dim rs As New ADODB.Recordset

Dim sorgu As String



sorgu = "SELECT Last(Tablo1.id) AS Sonid FROM Tablo1;"



rs.Open sorgu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic



MsgBox rs!Sonid + 1



rs.Close

kullanabilirsiniz veya, otomatik sayıları hep kendiniz verdirirsiniz. o şekilde işlem yaptırabilirsiniz. ki ben otomatik sayıları hiç bir zaman otomatik bırakmıyorum. örneğin diyelim ki personel listeniz var id otomatik, bir sürü işlem yapılmış, ve birisi 5 nolu personeli yanlışlıkla silmiş, diğer tablolarda işlemleri duruyor. birdaha personel numarası 5 olan bir kişi ekleyemezsiniz.