Skip to main content

AccessTr.neT


aya göre toplamı aldırmak

aya göre toplamı aldırmak

Çözüldü #1
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...
.rar istatistik.rar (Dosya Boyutu: 17,39 KB | İndirme Sayısı: 6)
Cevapla
Çözüldü #2
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.
.rar istatistik_BlackEagle.rar (Dosya Boyutu: 23,83 KB | İndirme Sayısı: 17)
Cevapla
Çözüldü #3
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
Cevapla
Çözüldü #4
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.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
hocam dediklerinizi yaptım fakat hata veriyor siz düzenleyip buraya ekleyebilrimisiniz. tşkler
Cevapla
Çözüldü #6
Buyrun...
.rar istatistik_BlackEagle-2.rar (Dosya Boyutu: 22,01 KB | İndirme Sayısı: 17)
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da