Arkadaşlar öncelikle veritabanımın içindekilerden bahsedeyim.
Tablo olarak
1.Seçmece ırklar
2.Tank

Sorgu olarak
1. Tank_çapraz

Rapor olarak
1.ek22

ve
1 modülüm var.

isteğim olay ise şu

Ek22 Rapor sayfasına ilk önce seçmece ırklar alt alta tek tek sıralanacak.
Daha sonra rapor sayfasında metin9 diye bir metin kutum var ve bu kutuya ocak ayı için 1, şubat ayı için 2 değerini yazıyorum ve bu şekilde aralık ayına kadar gidiyor.
Benim istediğim ise metin9daki değer ile tank_çapraz sorgusu içindeki ay alanı karşılacak ve aynı ay içerisindeki ve aynı zamanda hayvan ırklarına göre toplam alınan doz miktarını yazacak yanına ise aldığı firmalar gelecek. Daha açıklayıcı olmak için raporun şeklini excelde yapıp resim olarak ekledim. Aslında tüm veriler süzülmüş bir şekilde bulunuyor ancak cahilliğime verin hepsini bir yerde raporlayamadım.

İstediğim şekil

tam anlamıyla bu

Yardımlarınız için şimdiden çok teşekkür ederim.

Sayin mrkync;

Ornegi inceleyebilirsiniz
  yenisorun.zip (Boyut: 42,07 KB / İndirilme: 88)

dsezgin yardımlarınız için çok teşekkür ederim sadece tek eksiği süzme işleminde verisi olmayan seçmece ırkları göstermemesi. Yani seçmece ırklar tablosundaki tüm veriler karşısında dozu olsada olmasada gözükmesi gerekiyor. Yani tablodaki 14 ırk devamlı duracak. Bunu nasıl yapabiliriz.

Sayin mrkync;

Formda ki komut satirlarini degistirebiirsiniz.

Const SQLKMT As String = "SELECT [Seçmece Irklar].Irklar, Firmalar.Firma, Tank.Tarih, Sum(Tank.Doz) AS Doz FROM (Tank RIGHT JOIN [Seçmece Irklar] ON Tank.Irkı = [Seçmece Irklar].[Sıra No]) LEFT JOIN Firmalar ON Tank.Firma = Firmalar.Sira GROUP BY [Seçmece Irklar].Irklar, Firmalar.Firma, Tank.Tarih, Month([Tarih]) ORDER BY [Seçmece Irklar].Irklar"

Private Sub Sorgu_AfterUpdate()
If Me.Secme = 1 Then Me.Komut = " Where (((Month([Tarih]))=" & Me.Sorgu & ")) "
If Me.Secme = 2 Then Me.Komut = " Where ((([Irkı])=" & Me.Sorgu & "))"
If Me.Secme = 3 Then Me.Komut = " Where (((Tank.Firma)=" & Me.Sorgu & ")) "
Me.Ekran.RowSource = Replace(SQLKMT, ".Sira GROUP", ".Sira " & Me.Komut & " GROUP")
Me.Ekran.Requery
End Sub

Hocam hata veriyor.

Sayin mrkync;

Kodlari tasima esnasinda turkce karekterlerde harf farkliliklari oldugunda olabilir. Ek'te ki VT'ni Inceleyebilirsiniz.
  yenisorun.zip (Boyut: 42,7 KB / İndirilme: 98)