(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