Alt form sorgu mükerrersiz alan sayma

[Recep İpek]

Merhaba,

Ekteki örnekte görüldüğü gibi Form1 formunda, alt formda ilçe ve mahalle bilgilerini mükerrersiz olarak adetlerini nasıl gösterebilirim?
Aynı şekilde adet toplamlarını da. DCount var ama tüm kayıtları sayıyor.

İlgilenenlere şimdiden teşekkürler.

 

[Taruz]

Merhaba..

Yeni bir sorgu oluşturunuz.:

SELECT id, il, ilce, mahalle, adet, 
(select  count(ilce) from [datasorgu] where ilce=trz.ilce and id<=trz.id ) AS ilcesay, 
(select  count(mahalle) from [datasorgu] where  id<=trz.id and  ilce=trz.ilce and mahalle=trz.mahalle ) AS mahallesay
FROM datasorgu AS trz

İsmi adetsorgu olsun..

Sonra forma bu prosedürü ileve ediniz..:

Sub sayim()
If ilce = "Tüm" And mahalle = "Tüm" Then
Text0 = DCount("*", "adetsorgu", "ilcesay= " & 1)
Text3 = DCount("*", "adetsorgu", "mahallesay= " & 1)
ElseIf ilce = "Tüm" And mahalle <> "Tüm" Then
Text0 = DCount("*", "adetsorgu", "ilcesay= " & 1)
Text3 = DCount("*", "adetsorgu", "mahallesay= 1 And mahalle='" & mahalle & "'")
ElseIf ilce <> "Tüm" And mahalle = "Tüm" Then
Text0 = DCount("*", "adetsorgu", "ilcesay= 1 And ilce='" & ilce & "'")
Text3 = DCount("*", "adetsorgu", "mahallesay= " & 1)
Else
Text3 = DCount("*", "adetsorgu", "mahallesay= 1 And mahalle='" & mahalle & "'")
Text0 = DCount("*", "adetsorgu", "ilcesay= 1 And ilce='" & ilce & "'")
End If
Text4 = DSum("adet", "adetsorgu")
End Sub

Açılan kutuların after update olayında kullanabilirsiniz..

Selamlar..

 

[Recep İpek]

Hocam teşekkürler.

Kodlar mükemmel çalışıyor.Asıl dosyaya uyarlamak için biraz geliştirmem lazım.

Bilginize sağlık...

 

[assenucler]

Sayın Taruz hocam..

İyi akşamlar ve teşekkür..