Değerli forum üyeleri;
Konuma ait çözümü şu kodlar ile sağladık,faydalanmak ve geliştirmek isteyenler için kodlar aşağıdadır.
İlginiz için çok tşk ederim.Konu taşınabilir.

srg_aylulum adlı sorgunun kodunu aşağıdaki ile değiştiriniz.

SELECT tbl_degerlendirmelerM.altbaslikid, tbl_degerlendirmelerM.alanlar, tbl_degerlendirmelerM.OCAK1 As Hafta1, tbl_degerlendirmelerM.OCAK2 As Hafta2, tbl_degerlendirmelerM.OCAK3 As Hafta3, tbl_degerlendirmelerM.OCAK4 As Hafta4, 'OCAK' AS AY FROM tbl_degerlendirmelerM WHERE (((tbl_degerlendirmelerM.altbaslikid)=[Forms]![frm_dersler]![Metin45])) UNION 

SELECT tbl_degerlendirmelerM.altbaslikid, tbl_degerlendirmelerM.alanlar, tbl_degerlendirmelerM.SUBAT1 As Hafta1, tbl_degerlendirmelerM.SUBAT2 As Hafta2, tbl_degerlendirmelerM.SUBAT3 As Hafta3, tbl_degerlendirmelerM.SUBAT4 As Hafta4, 'ŞUBAT' AS AY FROM tbl_degerlendirmelerM WHERE (((tbl_degerlendirmelerM.altbaslikid)=[Forms]![frm_dersler]![Metin45])) UNION 

SELECT tbl_degerlendirmelerM.altbaslikid, tbl_degerlendirmelerM.alanlar, tbl_degerlendirmelerM.MART1 As Hafta1, tbl_degerlendirmelerM.MART2 As Hafta2, tbl_degerlendirmelerM.MART3 As Hafta3, tbl_degerlendirmelerM.MART4 As Hafta4, 'MART' AS AY FROM tbl_degerlendirmelerM WHERE (((tbl_degerlendirmelerM.altbaslikid)=[Forms]![frm_dersler]![Metin45])) UNION 

SELECT tbl_degerlendirmelerM.altbaslikid, tbl_degerlendirmelerM.alanlar, tbl_degerlendirmelerM.NİSAN1 As Hafta1, tbl_degerlendirmelerM.NİSAN2 As Hafta2, tbl_degerlendirmelerM.NİSAN3 As Hafta3, tbl_degerlendirmelerM.NİSAN4 As Hafta4, 'NİSAN' AS AY FROM tbl_degerlendirmelerM WHERE (((tbl_degerlendirmelerM.altbaslikid)=[Forms]![frm_dersler]![Metin45])) UNION 

SELECT tbl_degerlendirmelerM.altbaslikid, tbl_degerlendirmelerM.alanlar, tbl_degerlendirmelerM.MAYİS1 As Hafta1, tbl_degerlendirmelerM.MAYİS2 As Hafta2, tbl_degerlendirmelerM.MAYİS3 As Hafta3, tbl_degerlendirmelerM.MAYİS4 As Hafta4, 'MAYIS' AS AY FROM tbl_degerlendirmelerM WHERE (((tbl_degerlendirmelerM.altbaslikid)=[Forms]![frm_dersler]![Metin45])) UNION 

SELECT tbl_degerlendirmelerM.altbaslikid, tbl_degerlendirmelerM.alanlar, tbl_degerlendirmelerM.HAZİRAN1 As Hafta1, tbl_degerlendirmelerM.HAZİRAN2 As Hafta2, tbl_degerlendirmelerM.HAZİRAN3 As Hafta3, tbl_degerlendirmelerM.HAZİRAN4 As Hafta4, 'HAZİRAN' AS AY FROM tbl_degerlendirmelerM WHERE (((tbl_degerlendirmelerM.altbaslikid)=[Forms]![frm_dersler]![Metin45])) UNION 

SELECT tbl_degerlendirmelerM.altbaslikid, tbl_degerlendirmelerM.alanlar, tbl_degerlendirmelerM.EYLUL1 As Hafta1, tbl_degerlendirmelerM.EYLUL2 As Hafta2, tbl_degerlendirmelerM.EYLUL3 As Hafta3, tbl_degerlendirmelerM.EYLUL4 As Hafta4, 'EYLÜL' AS AY FROM tbl_degerlendirmelerM WHERE (((tbl_degerlendirmelerM.altbaslikid)=[Forms]![frm_dersler]![Metin45])) UNION 

SELECT tbl_degerlendirmelerM.altbaslikid, tbl_degerlendirmelerM.alanlar, tbl_degerlendirmelerM.EKİM1 As Hafta1, tbl_degerlendirmelerM.EKİM2 As Hafta2, tbl_degerlendirmelerM.EKİM3 As Hafta3, tbl_degerlendirmelerM.EKİM4 As Hafta4, 'EKİM' AS AY FROM tbl_degerlendirmelerM WHERE (((tbl_degerlendirmelerM.altbaslikid)=[Forms]![frm_dersler]![Metin45])) UNION 

SELECT tbl_degerlendirmelerM.altbaslikid, tbl_degerlendirmelerM.alanlar, tbl_degerlendirmelerM.KASİM1 As Hafta1, tbl_degerlendirmelerM.KASİM2 As Hafta2, tbl_degerlendirmelerM.KASİM3 As Hafta3, tbl_degerlendirmelerM.KASİM4 As Hafta4, 'KASIM' AS AY FROM tbl_degerlendirmelerM WHERE (((tbl_degerlendirmelerM.altbaslikid)=[Forms]![frm_dersler]![Metin45])) UNION SELECT tbl_degerlendirmelerM.altbaslikid, tbl_degerlendirmelerM.alanlar, tbl_degerlendirmelerM.ARALİK1 As Hafta1, tbl_degerlendirmelerM.ARALİK2 As Hafta2, tbl_degerlendirmelerM.ARALİK3 As Hafta3, tbl_degerlendirmelerM.ARALİK4 As Hafta4, 'ARALIK' AS AY FROM tbl_degerlendirmelerM WHERE (((tbl_degerlendirmelerM.altbaslikid)=[Forms]![frm_dersler]![Metin45]));

ve modüldeki kodu da şu kod ile değiştiriniz;

Sub sorgu()

Dim Ayi, Str, str1 As String, ii As Long, aa As Variant

aa = Array(, "OCAK", "SUBAT", "MART", "NİSAN", "MAYİS", "HAZİRAN", "TEMMUZ", "AGUSTOS", "EYLUL", "EKİM", "KASİM", "ARALİK")



Str = "SELECT tbl_degerlendirmelerM.altbaslikid, tbl_degerlendirmelerM.alanlar, tbl_degerlendirmelerM.Davut1 As Hafta1, tbl_degerlendirmelerM.Davut2 As Hafta2, tbl_degerlendirmelerM.Davut3 As Hafta3, tbl_degerlendirmelerM.Davut4 As Hafta4, 'Davut' AS AY FROM tbl_degerlendirmelerM WHERE (((tbl_degerlendirmelerM.altbaslikid)=[Forms]![frm_dersler]![Metin45])) UNION "

For ii = 1 To 12

str1 = Replace(Str, "Davut", aa(ii))

Debug.Print str1

Next ii



End Sub