Merhabalar
İş yeri icin basit bir otomasyon programı yapmaktayım. Kayıt oluşturma, silme , duzenleme, yazdırma işlemleri bitti. Sadece belirli tarih arasında ki sayıları toplama da tıkandım. Yani Ocak ayında ki kayıtları toplama. Belli bir sutun daki belirli tarih aralığın daki sayıları nasıl toplayabilirim. Yardımlarınızı bekliyorum. Teşşekurler...


Belirli satırda ki kayıtları toplama kodunu buldum, bunu belli aralıklara yani tarihler arasına nasıl ayarlıyabilirim.

Kod:
Dim Toplam, i Adodc1.Recordset.MoveFirst For i = 1 To Adodc1.Recordset.RecordCount Toplam = Toplam + Adodc1.Recordset.Fields("Dun1") Adodc1.Recordset.MoveFirst Next Text8.Text = Toplam



iki tarih arası filtreleme kodu

Kod:
Adodc1.CommandType = adCmdText Adodc1.RecordSource = "SELECT Sum(Dun1) AS Topla FROM tablo WHERE tarih Between '" & Text2.Text & "' And '" & Text3.Text & "'" Adodc1.Refresh


SORUN COZULMUŞTUR
__________________