(06/08/2013, 11:57)siyahca yazdı: Şimdi burdaki sorunum çözüldü ancak bu sorgu sonuçlarının farklı bir toplanma yolu varmıdır? Yani aslında sorum aynı ama farklı bir yöntemi varmıdır?

Evet, vardır.
Örneğin aşağıdaki fonksiyonu bir modüle yapıştırıp, yine ilgili metin kutusunun denetim kaynağına:= Toplam_Al() yazarak fonksiyonu referans gösterebilirsin.

Public Function Toplam_Al()

    Dim KS As Recordset

    Set KS = CurrentDb.OpenRecordset("SELECT Sum(Alan_Adi) AS Toplam FROM Tablo WHERE Kriter_Adi = " & Me.Kriter_Adi & "")

    Toplam_Al = KS!Toplam

    KS.Close

    Set KS = Nothing

End Function

Ben size yolunu gösterdim, çalışmanıza uyarlamak size ait.