AccessTr.neT

liste kutusundan alt forma veri yazdırma asıl amaç bu daha basit il,ilce,mahalle,cadde verilerini süzerek adres verisi elde etmek gibi 
program YALOVA VALİLİĞİ Yalova Rehberlik ve Araştırma Merkezi Müdürlüğü EĞİTİM PLANI Türkiye çapında kullanılmak üzere ilgili birim öğretmeni Mehmet beyin talebi üzerine başlanmış ve sayın ozan akkaya nın tablodan form üzerindeki liste kutusuna verileri çekip listeleme ve oradan da alt forma verileri  RunSQL kodu ile kayıt etme suretiyle programı tamamladık 

Private Sub MahalleAdi_DblClick(Cancel As Integer)



DoCmd.SetWarnings False



DoCmd.RunSQL "INSERT INTO tbl_degerlendirmeler ( alanlar, beceriid, id ) SELECT TblMahalleler.MahalleAdı, [Formlar]![Form1]![MahalleAdı] AS İfade1, [Formlar]![Form1]![Kimlik] AS İfade2 FROM TblMahalleler WHERE (((TblMahalleler.Kimlik)=[Formlar]![Form1]![MahalleAdı]));"



DoCmd.SetWarnings True



DoCmd.OpenForm "frm_secim"



End Sub

mantık şu il,ilce.mahalle adında 3 tablomuz var il tablosunda 7 başlık var 1 başlık bağlı 15 başlık var o 15 başlığa bağlı 100 konu var böyle bir veri tabanından bilgiyi çekip alt forma aracı bir seçim formu ile tek veriyi bulup alt forma listelemek alt formun bağlı olduğu kişi bilgileri ile raporunun çıktısını almak 
ben il,ilçe mahalle programını bu programa adapte ettim sizlerde bunu örnek alıp başka amaçlarla yapabilirsiniz resimle de izah etmeye çalıştım inceleyiniz 

Programı setup kurulum dosyası yapıp ekliyorum kodları açıktır istenilen değişikliği yapabilirsiniz 
program C:\Program Files dizinine kurulacak  isterseniz başka dizi nede kurabilirsiniz kurulduğu yerden Access i inceleyip değişiklik yapabilirsiniz güle güle kullanın

Eline sağlık Ekrem abi.