(06/08/2021, 01:02)berduş yazdı: bunu

(06/08/2021, 00:56)lemoncher2 yazdı: Kodu çalıştıramadım siz çalıştırabilirmisiniz rica etsem

bunu yapmak için yeni bir VT , tablo, form oluşturmam, kayıt eklemem .... gerek
siz çalışmanızın ilgili kısmını ekleyin öyle deneyelim

Yarın örnek oluşturup paylaşırım ilginiz için teşekkür ederim iyi geceler

rica ederim
iyi çalışmalar

(06/08/2021, 00:53)berduş yazdı: yukardaki kod da döngü mantığını kullanmış, yani işe yarar gibi görünüyor ama buradaki Kimlik otomatik tam sayı olan kimlik mi sizin oluşturduğunuz kimlik mi?

bu soruma cevap vermediniz?

(06/08/2021, 01:15)berduş yazdı:

(06/08/2021, 00:53)berduş yazdı: yukardaki kod da döngü mantığını kullanmış, yani işe yarar gibi görünüyor ama buradaki Kimlik otomatik tam sayı olan kimlik mi sizin oluşturduğunuz kimlik mi?

bu soruma cevap vermediniz?

Vermiştim oysaki
Bu kodu diğer forumdan aldım açıklamada yoktu orada. Otomatik sayımı yoksa bizim oluşturduğumuz mu bilmiyorum. Ancak bizim oluşturduğumuz sütun olduğunu düşünüyorum sonuçta işlemi orada yaptıracağız.

(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

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