aya göre toplamı aldırmak

1 2
15/12/2010, 22:59

kesoka

sayın hocalarım aylık aldığım istatistiği Access üzerine taşımaya çalışıyorum. aşağıda ekde ekledim programımı. programda yapılanişlemler tarihe göre sayı olarak giriyorum mesela muayene kaç tane yapmışsam giriyorum hangi tarihteyse. günlük toplamı aldırabiliyorum. ama yapmaya çalıştığım o günlük toplamlarında toplamını almak aya göre. mesela bi texbox koyup forma bide açılan kutu sanırım açılan kutudan aralığı seçtiğimde listemde aralık ayı için girdiğim kayıtlar görünsün ve texboxdada aralık ayında girdiğim bütün verilerim toplamı gözüksün gibi. bu mümkünmüdür acaba.. teşkler şimdiden...
16/12/2010, 00:43

ercansahin

Lütfen FRM_SORGU isimli formu inceleyiniz. Mevcut Tarih aralığına istediğiniz iki tarihi giriniz, örn. Şubat ayına ait raporu almak isterseniz 01.02.2010 ve 28.02.2010 olarak girebilirsiniz.

Bu arada tablonuzdaki Tarih alanının özelliğini Tarih/Saat olarak değiştirdiğimi hatırlatmalıyım. Kolay gelsin.
16/12/2010, 15:25

kesoka

hocam güzel bir çalışma yapmışsınız teşekkrüler. iki tarih arası süzme işleminide bu şekilde öğrenmiş oldum. ama yapmak istediğim bu değildi. benim yapmak istediğim dedinizya mesela şubat ayı kayıtlarını çıkardık ordan bi texbox koyup forma ondada o şubat ayı için işlenen sayıların hepsinin toplamını almak. amacım bu. atıyorum şubat 5 te toplam yapılan işlem 10 şubat 8 de ise 15 şubat 14 de 20 gibi ve şubat toplamını yani 35 sayısını texboxsa almak. teşekkürler ilginiz ve yardımlarınız için
16/12/2010, 16:01

Hayri16

Sayın kesoka;
Ercan hocamızın yaptığı çalışmaya küçük bir ek yaparak sorunu çözebiliriz.
1- Ercan Hocamızın hazırladığı FRM_SORGU formunda bir metin kutusu açınız ve adını "tumtop" yapınız.
2- Komut1 tuşunun olay yordamına gidiniz(Kodlarda Komut16 olarak geçiyor)
Oradaki "Me.Liste12.Requery" satırının altına "hesapla" yazınız.
3- Kod sayfasına aşağıdaki kodları kopyalayınız.
Private Sub hesapla()
Dim sut As Integer
Dim sat As Integer
Dim hepsi As Integer
hepsi = 0
For sut = 1 To Liste12.ListCount
For sat = 2 To 15
hepsi = hepsi + Nz(Liste12.Column(sat, sut), 0)
Next
Next
Tumtop = hepsi
End Sub
Hem hocamızın yaptığı gibi tek tek göreceksiniz , hem de listedekilerin tümünün toplamını göreceksiniz. Saygılarımla , kolay gelsin.
16/12/2010, 16:23

kesoka

hocam dediklerinizi yaptım fakat hata veriyor siz düzenleyip buraya ekleyebilrimisiniz. tşkler
16/12/2010, 16:30

Hayri16

Buyrun...
1 2