Konuyu toparlamak gerekir ise ;
Aşağıdaki kodta Kriter_Adi yazan yerlere
aygoster: mid([tarih;4;2])

kodlarınımı kopyalayacağım?

daha sonra bana ay ay adetleri verecek değilmi?Birde Benim alan adım DT mesela ancak 4 sorgunun birleşimindede var bu 4 adet DT yi kendimi toplayacak

Kusura bakmayın kod bilgim olmadığı için soruyorum.

teşekkürler şimdiden


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