AccessTr.neT

Tam Versiyon: Accesste Aylara Göre Veri Seçmek Nasıl Yapılır
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba değerli forum üyeleri;

Ekte bulunan eğitim planı örneğini siz değerli adminlerin öneri ve yardımları ile hazırlamıştık.Allah hepinizden tek tek razı olsun..

Aynı program için okullardan gelen istekler doğrultusunda şöyle bir ihtiyaç doğdu..Ders ders ay ay hangi amaçların derslerde çalışılması gerektiğini planda görmek istiyorlar..

Yani diyelim ki Matematik Dersi İçin;
Eylül Ayı
1-Birer ritmik sayar
2-İkişer ritmik sayar
3-Üçer ritmik sayar.

Ekim ayı için
1-Üçgeni bilir.
2-daireyi bilir.
3-Eldesiz toplama yapar

-------------------------
Not;ders ders ay ay işleyiş planı hazırlama işlemi eğitim planı hazırlama işleminden bağımsız olacak..Yani ekteki eğitim planı hazırlama programında şuan ki mevcut haliyle eğitim planı hazırlanacak..

Program üzerine konacak buton yardımı ile işleyiş planı hazırlama formu açılacak ve buradanda işleyiş planı hazılanacak..

Denemelerimde başarılı olamadım[Resim: img-cray.gif](
Bu konuda öneri ve yardımlarınızı bekliyor saygılar sunuyorum..

Öneri ve yardımlarınızı bekliyor saygılar sunuyorum....

Bir yol tarif edin lütfen...nasıl yapmam gerekiyor??Okullar bizden işleyiş planları beklemekte[Resim: img-cray.gif](

Konu güncel,çözüm bulamadın.

Lütfen arkadaşlar bir öneri yardım bekliyorum..

Değerli forum üyeleri;
Ekteki uygulamada tanı seçtikten sonra ders seçimine çift tık yaptıktan sonra açılan seçim formunda,performans-amaç seçimi yapılıyor ve değerlendirme tablosuna aktarılıyor..Bunun yapında seçim formuna eklemiş olduğum aylara göre tikleme ile de isleyiş tablosuna gönderilmesini istiyorum ama bir türlü başaramadım[Resim: img-cray.gif](

İşleyiş tablosuna kayıt ettirebilirsem daha sonra sorgu yolu işleyiş planı raporuna verileri çekeceğim..

Yardım ve önerilerinizi bekliyor saygılar sunuyorum..
Seçim formundaki kapat butonunun kodlarını aşağıdaki ile değiştir.


If Form.Dirty = True Then
If MsgBox("Yapılan Seçimler Kaydedilsin mi?", vbInformation + vbYesNo, "Kaydediliyor...") = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO isleyis ( kazanimlar, eyll, ekm, ksm, arlk, ock, sbt, mrt, nisan, mys ) SELECT alanlar, eyll, ekm, ksm, arlk, ock, sbt, mrt, nisan, mys FROM tbl_gecici WHERE (((tbl_gecici.id)=[Formlar]![frm_degerlendirmeyap]![Kimlik]) AND (([performans] & [amaclar]) Like '*' & '-1' & '*'));"
DoCmd.RunSQL "INSERT INTO tbl_degerlendirmeler ( id, beceriid, alanlar, PERFORMANS, amaclar, altbaslikid, eyll, ekm, ksm, arlk, ock, sbt, mrt, nisan, mys, hazrn ) SELECT id, beceriid, alanlar, performans, amaclar, altbaslikid, eyll, ekm, ksm, arlk, ock, sbt, mrt, nisan, mys, hazrn FROM tbl_gecici WHERE (((tbl_gecici.id)=[Formlar]![frm_degerlendirmeyap]![Kimlik]) AND (([performans] & [amaclar]) Like '*' & '-1' & '*'));"
Forms!frm_degerlendirmeyap!frm_degerlendirmealtform.Form.Requery
CurrentDb.Execute "Delete tTempFiles.* from tbl_gecici;"
DoCmd.SetWarnings True
DoCmd.Close
Else
DoCmd.Close
End If
Else
CurrentDb.Execute "Delete tTempFiles.* from tbl_gecici;"
DoCmd.Close
End If


Ek olarak, son defa Site Kurallarını hatırlatayım. Sonrakilerde ("Sürekli İhlal") uyarı puanı alacaksınız. Önceki mesajlarınız birleştirildi, eski örnek silindi.

Site Kuralları:
1d) Dosyanızda önce Access ile Veritabanı Sıkıştır ve Onar işlemini uygulayınız. Daha sonra herhangi bir sıkıştırma programı ile (WinRar/WinZip/7Zip vb.) Sıkıştırma Yöntemi En İyi (Best) olacak şekilde sıkıştırınız.
Dosya Düzenle Onar ve WinRar ile Sıkıştırma İşlemi Resimli Anlatım

14b) Açmış olduğunuz konuya cevap yazılmamış ise konuyu hatırlatmak ve/veya konunuzu üst sıraya taşımak için konunuza tekrar mesaj yazabilirsiniz. Daha önceden eklenmiş dosyayı tekrar eklemeyiniz. Konunuzda bulunan “Düzenle” butonunu kullanarak eski dosyanızı değiştirebilirsiniz.
Değerli ozan hocam;
İlgine çok tşk ederim..Vermiş olduğun kod ile sorun çözülmüştür.

Konu taşınabilir..Saygılar..