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
dcount("ders_id","tbl_dersyükü","[islemler_id]=" & 4 & " and [ders_id]=" & 9)
gibi bir kod yazdığımızda sonuç 5 çıkıyor
For xList = 1 To Me.listedersler.ListCount - 1
yanlışFor xList = 0 To Me.listedersler.ListCount - 1
doğru