Resmini eklediğim hatayı veriyor

36. mesaja gerekli açıklamaları yazdım

Tekrar deneyeyim

(22/01/2020, 17:35)berduş yazdı: hata benim dosyamda mı?
çünkü şimdi denedim sorun çıkmadı
eğitim tablosunu boşalttınız mı?
siz dolu tabloya eklemeye çalıştıysanız recortset boş değer döndüreceğinden hata verir.
o satırın üstüne
If OgRS.RecordCount = 0 Then
MsgBox "Tüm kişiler eğitim programına alındı"
Exit Sub
End If kodlarını ekleyerek deneyebilirsiniz.

If OgRS.RecordCount = 0 Then 'eklendi

MsgBox "Tüm kişiler eğitim programına alındı" 'eklendi

Exit Sub 'eklendi

End If 'eklendi

    OgRS.MoveLast

    OgRS.MoveFirst

(22/01/2020, 17:34)accessman yazdı: kotam dolduğu için ekleyememiştim ama kodları eklemiştim tekrar çok teşekkürler 
hata resimlerini ekledim

dosyayı eklerken eğitim tablosunu çıkarmayabilirdiniz yada dosya yükleme sitelerine yükleyip bağlantıyı burada paylaşabilirdiniz

Alttakiler gereksiz gibi.

Düzeltme:Gerek varmış silince dosya kapandı.

Movefirst  ve movelast gerçek kayıt sayısını bulmak için kullanılan ek bir önlem sadece
Olmazlarsa kapanma gibi bir sorun çıkmaması lazım, sadece hata uyarısı verir.

(22/01/2020, 19:58)berduş yazdı: Movefirst  ve movelast gerçek kayıt sayısını bulmak için kullanılan ek bir önlem sadece
Olmazlarsa sorun çıkmaması lazım.

Normaldede sorun olmamalı lakin yolladığınız dosyada o kodları silince Access kapandı.