Tabloları ilişkilendirip liste güncelleme

Tabloları ilişkilendirip liste güncelleme - Baskı Önizleme

+- 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ığı: Tabloları ilişkilendirip liste güncelleme (/konu-tablolari-iliskilendirip-liste-guncelleme.html)

Sayfalar: 1 2

Cvp: Tabloları ilişkilendirip liste güncelleme - stringeer - 13/02/2017

isteğinize istinaden aşağıdaki kodları eklerseniz

Private Sub Form_Load()

Dim Sql As String

sql = "select distinct bosaltmalimani from navlundata order by bosaltmalimani"

Me.listbliman.RowSource = sql

End Sub

ve ulkeSec kodunu

Private Sub UlkeSec()

Dim rc As DAO.Recordset

Dim Sql As String

Set rc = CurrentDb.OpenRecordset("T_Ulke")

rc.AddNew

    rc![ulke] = Me.ListUlke

rc.Update

Set rc = Nothing

Me.SelectedUlke.Requery

sql = "select distinct bosaltmalimani,bosaltmaulkesi from navlundata, t_ulke where bosaltmaulkesi=ulke order by bosaltmalimani"

Me.listbliman.RowSource = sql

End Sub

şeklinde düzenleyip denerseniz

Cvp: Tabloları ilişkilendirip liste güncelleme - dufrety - 14/02/2017

Sayın Atoz ve stringeer, ikinize de çok teşekkür ederim. Aradığım sonuca ulaştım. Ellerinize sağlık. Sayın stringeer'in son attığı kodu kullanınca bir kez filtreleme yaptıktan sonra seçeneklerin yeniden yüklenmesi için form'un yeniden açılması gerekiyordu. Bunu düzeltmek için de yine kendisinin attığı ;

Dim Sql As String

sql = "select distinct bosaltmalimani from navlundata order by bosaltmalimani"



Me.listbliman.RowSource = sql

Bu kodu kriterleri temizle butonunun altına yapıştırdım ve her kriteri temizlediğimde seçenekler de geri geliyor. İkinize de teşekkürlerimi bir borç bilirim çok yardımcı oldunuz.