ADO sorgusunda en çok olan 5 kaydı almak

[YUSUF44]

Ekli dosyada MAHALLE ÖZET sayfasında userformda Listbox1'de seçilen mahallenin bilgileri ÇKS ürünleri sayfasından alınacak.

O mahallenin ÇKS Ürünleri sayfasında N sütununda bulunan Tür bilgisine göre J sütunundaki Ekili alan toplamı en çok olan 5 (veya 7) ürünün tür ve alan bilgisini almak istiyorum.

Yaptığım denemelerde ilk 5 kayda gelmeden ürün toplamlarını alırken bile "toplama işlevinin bir parçası olan Tür ifadesini içermiyor" diye bir hata alıyorum.

İstediğim sonuç Sayfa1'de bulunan Özet tabloda olduğu gibi örneğin Ayazören Mahallesi için Buğday, Arpa, Çavdar, Susam, Fiğ ve bu ürünlerin toplamıdır ve bu sonucu MAHALLE ÖZET sayfasında A5:B9 aralığında görmek istiyorum.

Nasıl yaparım?

 

[Haluk]

Yusuf Bey, ekli dosyayı kendinize göre uyarlarsınız...

.

 

[YUSUF44]

Çok teşekkürler üstadım. Verdiğiniz koddaki ilgili kısmı uyarlayarak çözdüm sorunumu:

sorgu = " Select Top 7 [Tür], Sum([Ekili Alan (da)]) " & _
             " From [ÇKS Ürünleri$] Where [Mahalle]= '" & WorksheetFunction.Proper(ListBox1.Value) & "'" & _
             " Group By [Tür] Order By Sum([Ekili Alan (da)]) Desc"