Sayın hocalarım; EK'teki örnekte FormSınıflar formundaki Öğrenci sayılarını Güncelle butonuna tıklayınca TabloOgrenciler tablosundaki öğrencileri okul türüne, sınıflarına ve cinsiyetlerine göre sayıp TabloSınıflar tablosuna eklemek istiyorum.
İnceleyip olumlu/olumsuz bildirimde bulununuz.
Sayın hocam; okul türleri farklı olduğu için aynı sınıf isminden iki tane olan var. İki tane olan sınıflara aynı öğrenci sayısını alıyor.
TabloOgrenciler_Çapraz isimli sorgunun
Sql kodunu aşağıdaki ile değiştir.
TRANSFORM Count(TabloOgrenciler.SinifAdi) AS SaySinifAdi
SELECT [Sinifi] & [OkulId] AS sinifveokulturu, Count(TabloOgrenciler.SinifAdi) AS [Toplam SinifAdi]
FROM TabloOgrenciler
GROUP BY [Sinifi] & [OkulId]
PIVOT TabloOgrenciler.Cinsiyeti;
Butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.
DoCmd.SetWarnings False
DoCmd.RunSQL "SELECT srg_birlesiksiniflar.SinifKayitNo, TabloOgrenciler_Çapraz.Erkek, TabloOgrenciler_Çapraz.Kız INTO tbl_gecici FROM TabloOgrenciler_Çapraz INNER JOIN (SELECT TabloSiniflar.SinifKayitNo, [SubSin] & [SinifAciklama] AS sinifveokulturu, TabloSiniflar.SubSin, TabloSiniflar.SinifAciklama, TabloSiniflar.KızOgrenci, TabloSiniflar.ErkekOgrenci FROM TabloSiniflar) AS srg_birlesiksiniflar ON TabloOgrenciler_Çapraz.sinifveokulturu = srg_birlesiksiniflar.sinifveokulturu;"
DoCmd.RunSQL "UPDATE TabloSiniflar INNER JOIN tbl_gecici ON TabloSiniflar.SinifKayitNo = tbl_gecici.SinifKayitNo SET TabloSiniflar.KızOgrenci = [tbl_gecici].[Kız], TabloSiniflar.ErkekOgrenci = [tbl_gecici].[Erkek];"
DoCmd.DeleteObject acTable, "tbl_gecici"
DoCmd.SetWarnings True
Me.ListeSiniflar.Requery
MsgBox ("Öğrenci Sayıları Güncellendi")
Sayın ozanakkaya; ellerine sağlık. Şu an her hangi bir sıkıntı gözükmüyor. Yardımlarınız için teşekkür ederim.