(25/05/2020, 23:06)SeferŞANLI yazdı: Hocam her şeyi anladım. Bir tek buradaki Me.Filter ve Debug.Print Me.alan1, Me.Recordset.RecordCount bu kısmı anlmadım

Debug.print satırını silebilirsiniz, sadece sonucu görmek için ekledigim bir kod du silinebilir
buradaki Me.Filter ise sadece acilir kutudan secilen verilerin forma gelmesi icin kullanilan bir kod o olmazsa yada ayni isi yapan baska bir kod tum kayitlar listwlenir ve sizin kayitlar arasinda dolasmaniz gerekir. 
Kodu asagidaki sekilde duzenleyebilirsiniz

Private Sub alan1_AfterUpdate()

Me.Filter = "[alan_id]= " & Me.alan1.Value

Me.FilterOn = True

End Sub

Son sorunuz için ise 

(25/05/2020, 23:06)SeferŞANLI yazdı: Ayrıca 12 adet için 12 adet puan tanımlayacağım. Bunların toplamı 100 ü geçmez. toplamlarını tplm1 alanına yapacak. Nasıl kurgu yapmam gerek. Ve bu alanda sıfır değerinin görünmesini nasıl engellerim.

Yeni konu açıp  daha ayrıntılı bir açıklama yaparsanız çözmeye çalışırız.
Iyi çalışmalar.

---

Bu arada tam olarak istediğiniz gibi çalışıyor mu? Üst kaydı silmeyi denediniz mi? Üst kayıt seçilince kriter tablosu'ndan da ilişkili alanlar  siliniyor mu?
Yada kriter tablosuna belirttiğiniz formdan kayıt ekleyebiliyor musunuz?