Private Sub Form_Current()
Call Toplam
End Sub

Sub Toplam()
Dim Sw, Sy, Dsz As Long, Sonuc As Double, Kyt As Recordset, Kutu As Variant
Kutu = Array(, , "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz", "on", "onbir")
Set Kyt = Me.Liste0.Recordset
Dsz = Kyt.Fields.Count - 1
For Sy = 2 To Dsz
    For Sw = 1 To Me.Liste0.ListCount - 1
       If Me.Liste0.Column(Sy, Sw) <> "" Then Sonuc = Sonuc + Nz(CDbl(Me.Liste0.Column(Sy, Sw)), 0)
    Next Sw
    Me.Controls(Kutu(Sy)) = Sonuc
    Sw = 1: Sonuc = 0
Next Sy
End Sub