Access Birleşim Sorgusu Düzenleme Nasıl Olmalıdır?

05/01/2016, 00:52

mehami

S.aleykum değerli forum üyeleri değerli adminler;
Kamu kurumunda kullanılmak üzere okullara yolladığımız öğrenci eğitim planları için işleyiş planı hazırlanası için oluşturmaya çalıştığımız işleyiş planı hazırlama programında;
Mesai arkadaşlarım ile yapmış olduğumuz istişarelerde hemfikir olduğumuz bir değişikliğe gitmek zorunda kaldık..

Programın Kullanılışı;
1-frm_degerlendirmeyap çalıştırılır,öğrenci bilgileri girilir
2-Öğrenci tanısı seçilir daha sonra modül seçilir.
3-Modül seçiminde çift tıklama ile seçimformu açılır..
4-Seçim formunda beceri maddeleri gelir,biz buradan aylara ve o aylara ait haftalara göre seçim yaparız.
Yani şu beceri şu ayın şu haftası çalışılacak anlamında seçim yaparak işleyiş planını oluşturmak istiyoruz.

Yapmak istediğimiz şey;
Seçim formunda örnek olarak EYLÜL ayının 2.Haftası için işaretlediğimiz bir beceri raporda EYLÜL ayının 2.haftası kısmında gözükmelidir.
EYLÜL ayının 4.Haftası için işaretlediğimiz bir beceri raporda EYLÜL ayının 4.haftası kısmında gözükmelidir.
Bu şekilde diğer aylar ve haftalarda aynı şekilde ilgili ay ve haftalarda gözükmelidir.

Bunun için srg_aylulum adlı sorguda nasıl bir değişikliğe gitmemiz gerekmektedir?
Öneri ve yardımlarınızı bekliyor
Saygılar sunuyorum..

RESİM1

RESİM2

05/01/2016, 07:53

mehami

Konu güncel ve kamu yararından kaynaklı önceliklidir.
İlginize tşk eder,
öneri ve yardımlarınızı bekliyorum.
05/01/2016, 16:52

mehami

Sorumun cevabı srg_aylulum ile ilgili olduğunu tahmin ediyorum ama ne denedimse olmadı yapamadım Sizden ricam 1-2 ay için örnek amaçlı düzenlerseniz gerisini Allah'ın izniyle ben getiririm.

Öneri ve yardımlarınızı bekliyorum..
08/01/2016, 04:08

mehami

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