Sayın kesoka;
Ercan hocamızın yaptığı çalışmaya küçük bir ek yaparak sorunu çözebiliriz.
1- Ercan Hocamızın hazırladığı FRM_SORGU formunda bir metin kutusu açınız ve adını "tumtop" yapınız.
2- Komut1 tuşunun olay yordamına gidiniz(Kodlarda Komut16 olarak geçiyor)
Oradaki "Me.Liste12.Requery" satırının altına "hesapla" yazınız.
3- Kod sayfasına aşağıdaki kodları kopyalayınız.

Private Sub hesapla()

Dim sut As Integer

Dim sat As Integer

Dim hepsi As Integer

hepsi = 0

For sut = 1 To Liste12.ListCount

  For sat = 2 To 15

    hepsi = hepsi + Nz(Liste12.Column(sat, sut), 0)

  Next

Next

Tumtop = hepsi

End Sub

Hem hocamızın yaptığı gibi tek tek göreceksiniz , hem de listedekilerin tümünün toplamını göreceksiniz. Saygılarımla , kolay gelsin.