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")