AccessTr.neT

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

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.