Arkadaşlar Daha Öne Çözülmüş Olan Konum da 
Eksik Sayı Tespi  Access Veri Tabanında İçerisinde Hiç Veri Yoksa Şu Şekil Bir Hata Kodu Alıyorum

Run-time error '3021':
Ya BOF ya da EOF Doğru veya geçerli kayıt silinmiş. İstenen işlem geçerli bir kayıt gerektiriyor. 

Bu Hata Mesajı Geliyor. Eğer İçerisinde veri varsa Bu Hata Mesajını Almıyorum
İçerisi Boş Hiç veri Yokken Hata Alıyorum

İlginizden Dolayı Teşekkür Ederim

getrows tablodaki verilerin diziye aktarilmasini sağlar, Tablo boş ise diziye aktarılacak veri olmadığından hata verir. Bu nedenle koda dcount ile kayıt sayısı kontrolü eklenebilir.

Sayın Halily Hocam Dediğiniz Gibi DCount Kayıt Sayısı Konturolü İçin Ekledim Ama Yanlış Yere Ekledim Galiba Hata Veriyor.



    t = UBound(CurrentProject.Connection.Execute("select distinct[SIRA_NO] from SRG_PERSONEL ").GetRows, 2)

    xsonuc = DCount.DMax("SIRA_NO", "SRG_PERSONEL") - DMin("SIRA_NO", "SRG_PERSONEL") - t

dcount ilgili araştırma yapmanız yeterli
Çok karmaşık bir kod değil

(17-01-2023, 21:39)Bora34 demiş ki: Sayın Halily Hocam Dediğiniz Gibi DCount Kayıt Sayısı Konturolü İçin Ekledim Ama Yanlış Yere Ekledim Galiba Hata Veriyor.



    t = UBound(CurrentProject.Connection.Execute("select distinct[SIRA_NO] from SRG_PERSONEL ").GetRows, 2)

    xsonuc = DCount.DMax("SIRA_NO", "SRG_PERSONEL") - DMin("SIRA_NO", "SRG_PERSONEL") - t

Modül içindeki kodunuzu aşağıdaki gibi güncellemeniz yeterli olacaktır.

Sayın Alperalper hocam çok teşekkür ederim elinize emeğinize sağlık
Konumla ilgilenen arkadaşlara da çok teşekkür ederim sağolun
Kolay gelsin iyi çalışmalar