Skip to main content

AccessTr.neT


Dlookup Kriter

Dlookup Kriter

#13
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.
Cevapla
#14
Hocam ben ilişkiyi kurarak tekrar dosyayı yükledim.
.rar İşletmelerde beceri eğitim.rar (Dosya Boyutu: 374,92 KB | İndirme Sayısı: 1)
Son Düzenleme: 25/05/2020, 18:56, Düzenleyen: SeferŞANLI.
Cevapla
#15
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.
[Resim: do.php?img=10251]
.rar beceri eğitiID_hy2.rar (Dosya Boyutu: 331,13 KB | İndirme Sayısı: 2)
Cevapla
#16
Private Sub alan1_AfterUpdate()
Me.Filter = "[alan_id]= " & Me.alan1.Value
Me.FilterOn = True
Debug.Print Me.alan1, Me.Recordset.RecordCount
End Sub

Hocam 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.
Cevapla
#17
(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ım
Debug.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
Son sorunuz için ise 
(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?
Cevapla
#18
Hocam alanların silinmesinde problem yok. Kod gerektiği gibi çalışıyor. Teşekkür ederim.
Me.filter yerleşik bir kod mu?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task