Defalarca yaptığım şeyi yapamadım. Hatanın nerede olduğunu bulamadım. Lütfen hata nerde söylermisinz?
"Dersyükü Hesaplama" butonundan "tümünü ekle" butonundaki kodlar.
Aynı işe ait aynı dersi eklememesi gerekiyor.

If DCount("ders_ter_id", "tbl_dersyükü", "[islemler_id]=" & txtislemler_id & " and [ders_id]=" & Gders_id) = 0 Then

yukarıdaki kod;
"tbl_dersyükü" adlı tabloda "ders_ter_id" alanının karşısındaki "islemler_id" tablodaki alan "txtislemler_id " formdaki değere eşitse ve
"tbl_dersyükü" adlı tabloda "ders_id" alanının "Gders_id" eşitse
manasına gelmiyor mu?

sorun tam olarak ne?
ifade doğru mesela

dcount("ders_id","tbl_dersyükü","[islemler_id]=" & 4 & " and [ders_id]=" & 9)

gibi bir kod yazdığımızda sonuç 5 çıkıyor

Tamam. Teşekkürler.

For xList = 1 To Me.listedersler.ListCount - 1

yanlış

For xList = 0 To Me.listedersler.ListCount - 1

doğru
Ben listeyi 0 dan 1 başlatmam gerekirken-----1 to 1 yapmışım. O yüzden il satırı eklemiyordu.

---

Bir şeyi daha kurgulayamadım. Kişi ders ekleme ve silme kısmından dersin verisini değiştirirse, o değişen dersin tüm talolarda değişmesini nasıl kurgularız...