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
Son Düzenleme: 13/08/2013, 13:05, Düzenleyen: siyahca.