(06/08/2021, 01:35)berduş yazdı: aşağıdaki kod daha doğru ve hızlı gibi

Function Yok() As Long

If DCount("Kimlik", "Dizeler") = DMax("Kimlik", "Dizeler") Then Yok = DMax("Kimlik", "Dizeler") + 1: Exit Function

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

If Yok = 0 Then Yok = Kayit.RecordCount + 1

Kayit.Close: Set Kayit = Nothing

End Function

Elinize sağlık teşekkür ederim.

Değiştirilmesi gereken alanları ve ne ile değiştirilmesi gerektiğinide yazabilirmisiniz bir de bu kodu kaydetme komutundan öncemi kullanıyorsunuz