(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ı.