+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Sayma (/konu-veri-sayma--80857.html)
Veri Sayma - idrisy - 09/10/2015
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.
Cvp: Veri Sayma - ozanakkaya - 10/10/2015
İnceleyip olumlu/olumsuz bildirimde bulununuz.
Cvp: Veri Sayma - idrisy - 11/10/2015
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.
Cvp: Veri Sayma - ozanakkaya - 11/10/2015
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")Cvp: Veri Sayma - idrisy - 11/10/2015
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.