(06/08/2021, 00:56)lemoncher2 yazdı: Sanırım bizim oluşturduğumuz sütun.

kusura bakmayı aradaki cümleyi atlamışım

---

kod düzgün çalışıyor
en azından denemelerimde sorun çıkmadı
modüle aşağıdaki kodu yazdım
bana olmayan ilk noyu verdi

Function Yok() As Long

Dim Kayit As Recordset, Sayac As Long

Set Kayit = CurrentDb.OpenRecordset("Select Kimlik from Dizeler 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