Skip to main content

AccessTr.neT


İki tarih arasındaki kayıtları saymak ve raporlamak

İki tarih arasındaki kayıtları saymak ve raporlamak

Çözüldü #19
Tabii ki çapraz sorgu yapmalısınız. Bir sorgu oluşturun ve Sql görünümünde mevcut kodların yerine aşağıdaki kodu yapıştırın.

Kod:
TRANSFORM Count(Ana.[Onarım Durumu]) AS [SayOnarım Durumu]
SELECT Ana.[İşin Türü]
FROM Ana
GROUP BY Ana.[İşin Türü]
PIVOT Ana.[Onarım Durumu];

NOT:
Bu sorgudan bir rapor yapmalısınız demeye sanırım gerek yok. Bir de çapraz sorguda satır-sütun ve değer olması gerekir. O yüzden en az 3 değer olmalı. Ben de onarım durumuna göre işleri saydırdım. Siz inceler üzerinde oynarsınız.

Kolay gelsin
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #20
Merhaba arkadaşlar,
Konuyu tekrar gündeme getirdim burada sormak istediğim şu ekteki tabloda iki tarih arası kaç tane kayıt var bu sayılıyor, fakat sonuçlanmayan işler oluyoriki tarih arası sonuçlanan işleri sayabilirmiyiz örneği ekte gönderdim. Şimdiden teşekkürler.
.mdb ikitarih.mdb (Dosya Boyutu: 260 KB | İndirme Sayısı: 15)
Cevapla
Çözüldü #21
Lütfen Dosya Eklerken Site Kurallarına uyalım..
Aşağıdaki kodu deneyiniz...

Kod:
Private Sub Secilen_Ay_AfterUpdate()
Dim Bas As Long, Bit As Long
    Bas = DateSerial([Secilen_Ay].[Column](1), [Secilen_Ay].[Column](2), 4)
    If [Secilen_Ay].[Column](2) = 12 Then
        Bit = DateSerial([Secilen_Ay].[Column](1), 1, 3)
    Else
        Bit = DateSerial([Secilen_Ay].[Column](1), [Secilen_Ay].[Column](2) + 1, 3)
    End If
    Me.BasTarih = Bas
    Me.BitTarih = Bit
    Me.KayitSayisi = DCount("*", "Ana", "Tarih Between " & Bas & " And " & Bit & " And Sonuc=-1")
End Sub

Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task