(06/08/2021, 00:27)berduş yazdı: bildiğim pratik bir yol yok belki döngü ile 1 ile en büyük kayıt No arasında ilgili sayının olup olmadığına bakılabilir yada her kayıt silme işleminden sonra silinen no ayrı bir tabloya kaydedilip en küçük değer çekilebilir ama bence sıralı bir sütuna ihtiyaç yok ve fazladan yapılacak her işlem VTnin performansını olumsuz etkiler.
neden sıralı bir sütuna ihtiyaç duyuyorsunuz?

Kayıt numarası eklemem gerekiyor ve bu numaranında kayıt silinse bile atlamaması gerekiyor. Silinen kayıdın numarasını yeni katıda verip bir sonraki kayıtda da kaldığı yerden devam etmesi gerekiyor.
Eksiksiz kayıt numarasına ihtiyaç duyduğum için. Verilen bu kayıt numarasınında sonradan değişmemesi gerekli(her kayıttan baştan numara verdireceğimiz bir kod işime yaramaz yani)

---

Public Function Yok()
Dim Kayit as recordset,Sayac as long
set Kayit=cuurentdb.openrecordset("Select Kimlik from TabloAdi order by Kimlik")
Kayit.movefirst
do until Kayit.EOF
Sayac=Sayac+1
if sayac<>Kayit!Kimlik then Yok=Sayac:exit do
Kayit.Movenext
loop
Kayit.close:Set Kayit=nothing
end function

Böyle bir kod buldum ama işe yaratıp yaramayacağından emin değilim