Private Sub alan1_AfterUpdate()
Me.Filter = "[alan_id]= " & Me.alan1.Value
Me.FilterOn = True
Debug.Print Me.alan1, Me.Recordset.RecordCount
End Sub
Hocam her şeyi anladım. Bir tek buradaki Me.Filter ve Debug.Print Me.alan1, Me.Recordset.RecordCount bu kısmı anlmadım
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.