AccessTr.neT

Merhaba Sayın @varlık66

1. Öncelikle tblkuyu adlı tablonuzu tasarım görünümünde açın ve Kampadı alanının veri türünü sayı olarak değiştirip kaydedin.
   
2. Daha sonra formunuzda kuyuadı comboboxınızın satır kaynağı kısmında üç noktaya basarak sorgu oluşturucuyu çalıştırın ve tblkuyu tablonuzun yanındaki boşukta sağ tıklayarak tablo göster menüsünden tblkamp tablonusu ekleyin.
   
3. tblkuyu tablonuzdaki kampadını tblkamp tablonuzdaki kimlik alanının üzerine sürükleyip bırakarak ilişki kurulmasını sağlayın ve kaydedip kapatın.
   
4. kuyuadı adlı comboboxınızın satır kaynağı sorgusunu
   

   SELECT tblkuyu.Kimlik, tblkuyu.kuyuadı, tblkuyu.Kampadı, tblkuyu.BitiştarFROM tblkuyu INNER JOIN tblkamp ON tblkuyu.Kampadı = tblkamp.KimlikWHERE (((tblkuyu.Kampadı)=[Formlar]![frmkuyu]![Açılan_Kutu117]) AND ((IsNull([tblkuyu]![Bitiştar]))<>0))ORDER BY tblkuyu.kuyuadı;
   
   

   olarak değiştirin.
   
5. kampadı adlı comboxınızın afterupdate olayına
   

   Açılan_Kutu115.Requery
   
   

   kodunu ekleyin ve kaydedin.
   

formunuzda bundan sonra seçilen kamp adına göre kuyular listelenir ve bitiş tarihi olan kuyular gösterilmez. vakit darlığı nedeni ile çok detaylı inceleyemedim ama tablolarınızda veritürü yapılandırmalarında sıkıntılar var, denetimlerde Türkçe karakter sorunları had safhada. Açıkçası çok sağlıklı bir veritabanı değil. Sitemizdeki veritabanları için yapılan hatalar başlığını incelersen ne demek istediğimi daha net anlayacağınızı düşünüyorum. Bu çerçevede çalışmanızın ciddi olarak elden geçöirilmesinde fayda var.

İyi çalışmalar.

Sayın ATOYKAN,
İlginiz için çok teşekkür ederim.
Ben sizin gibi uzman değilim.
Bu konuda amatörce de olsa yaptığımız işin en iyisini yapmaya gayret ediyorum.
Tabi ki sizlerin zaman ayırıp bizlere yardımcı olması çok takdir verici. Çok sağ olun
Uyarılınız için teşekkürler.
Eğer bitirebilirsem sizin onayınıza sunacağım.
Size de çalışmalarınıza başarılar dilerim.