+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Dlookup Kriter (/konu-dlookup-kriter.html)
RE: Dlookup Kriter - berduş - 25/05/2020
Uygun bir zamanda, anladigim kadariyla, ilgilenmeye çalışırım.
Bu arada eğer siz önceden bahsettiğim ilişkiyi ID alanı üzerinden yapmaya karar verirseniz önce onunla ilgili sorunları halledip sonra bu soruna dönelim. Ilişkiler düzgün kurulursa birçok sorun Access tarafından zaten çözülmüş oluyor.
Re: Dlookup Kriter - SeferŞANLI - 25/05/2020
Hocam ben ilişkiyi kurarak tekrar dosyayı yükledim.
RE: Dlookup Kriter - berduş - 25/05/2020
dilerim işinize yarar
üst alanları silerseniz ilişkili alt tablodaki kayıtlar da otomatik silinir
eksikler, yanlış anlamalar yada hatalar varsa belirtirsiniz düzeltmeye çalışırız
bir çok yerde değişiklik yaptıgım için hepsini yazamadım ama şunu belirteyim gerek açılır kutuların gerekse de tablodaki ilişkili alanların veri kaynağını değiştirdim.
RE: Dlookup Kriter - SeferŞANLI - 25/05/2020
Private Sub alan1_AfterUpdate()
Me.Filter = "[alan_id]= " & Me.alan1.Value
Me.FilterOn = True
Debug.Print Me.alan1, Me.Recordset.RecordCount
End SubHocam her şeyi anladım. Bir tek buradaki Me.Filter ve Debug.Print Me.alan1, Me.Recordset.RecordCount bu kısmı anlmadım
Ayrıca 12 adet için 12 adet puan tanımlayacağım. Bunların toplamı 100 ü geçmez. toplamlarını tplm1 alanına yapacak. Nasıl kurgu yapmam gerek. Ve bu alanda sıfır değerinin görünmesini nasıl engellerim.
RE: Dlookup Kriter - berduş - 25/05/2020
(25/05/2020, 23:06)SeferŞANLI yazdı: Hocam her şeyi anladım. Bir tek buradaki Me.Filter ve Debug.Print Me.alan1, Me.Recordset.RecordCount bu kısmı anlmadımDebug.print satırını silebilirsiniz, sadece sonucu görmek için ekledigim bir kod du silinebilir
buradaki Me.Filter ise sadece acilir kutudan secilen verilerin forma gelmesi icin kullanilan bir kod o olmazsa yada ayni isi yapan baska bir kod tum kayitlar listwlenir ve sizin kayitlar arasinda dolasmaniz gerekir.
Kodu asagidaki sekilde duzenleyebilirsiniz
Private Sub alan1_AfterUpdate()
Me.Filter = "[alan_id]= " & Me.alan1.Value
Me.FilterOn = True
End Sub(25/05/2020, 23:06)SeferŞANLI yazdı: Ayrıca 12 adet için 12 adet puan tanımlayacağım. Bunların toplamı 100 ü geçmez. toplamlarını tplm1 alanına yapacak. Nasıl kurgu yapmam gerek. Ve bu alanda sıfır değerinin görünmesini nasıl engellerim.Yeni konu açıp daha ayrıntılı bir açıklama yaparsanız çözmeye çalışırız.
Iyi çalışmalar.
Bu arada tam olarak istediğiniz gibi çalışıyor mu? Üst kaydı silmeyi denediniz mi? Üst kayıt seçilince kriter tablosu'ndan da ilişkili alanlar siliniyor mu?
Yada kriter tablosuna belirttiğiniz formdan kayıt ekleyebiliyor musunuz?
RE: Dlookup Kriter - SeferŞANLI - 26/05/2020
Hocam alanların silinmesinde problem yok. Kod gerektiği gibi çalışıyor. Teşekkür ederim.
Me.filter yerleşik bir kod mu?