Merhaba
Main formunda Liste23 liste kutusunda, tüm firmaların  sözleşme yenilemelerine 15 gün kala listelenip 15gün dolunca listeden cıkmalarını istiyorum.yardımcı olursanız sevinrim. Ben bişeyler denedim ama tam olmadı.

Örn. 

25.04.2017 tarihinde boyner firması için görünecek bilgi ekranı

f_kisaad    f_baslangic   s_kira     s_ciropayi     s_tarih             s_aciklama     sy1
zBOYNER  17.04.2017   2500            4              01.05.2016   BAŞLANGIÇ    5 Gün

(25/04/2017, 22:01)ALTANs yazdı: Merhaba
Main formunda Liste23 liste kutusunda, tüm firmaların  sözleşme yenilemelerine 15 gün kala listelenip 15gün dolunca listeden cıkmalarını istiyorum.yardımcı olursanız sevinrim. Ben bişeyler denedim ama tam olmadı.

Örn. 

25.04.2017 tarihinde boyner firması için görünecek bilgi ekranı

f_kisaad    f_baslangic   s_kira     s_ciropayi     s_tarih             s_aciklama     sy1
zBOYNER  17.04.2017   2500            4              01.05.2016   BAŞLANGIÇ    5 Gün

Sorunu çözmeyi başardım. sadece listedeki çift tıklama özelliğini kullanırken sorun yaşıyorum. Firma id si listede görünmesinin bir anlamı yok. bu sebepten listeyi 8 sütün yapıp firma_id sini 9. sutuna taşıyınca  çift tıklama özelliğini kullandığımda firma_id si soruyor bu sorunu çözemedim.

Private Sub Liste23_DblClick(Cancel As Integer)
DoCmd.OpenForm "firmaincele", , , "[firma_id]=" & Me.Liste23
End Sub

Amatör bir ruh ile bu kadar yapabildim.
İnceleyiniz.

teşekkür ederim. Ellerine sağlık.

Merhaba, liste kutusundaki ilgili alanı 9. sütuna taşıdıysanız

DoCmd.OpenForm "firmaincele", , , "[firma_id]=" & Me.Liste23

kodunu

DoCmd.OpenForm "firmaincele", , , "[firma_id]=" & Me.Liste23.column(8) 

olarak kullanmalısınız.

Me.Liste23 yazılırsa ilk sütundaki veriyi alır, bu Me.Liste23.column(0) demektir.

firmaara formunda denedim olmadı hocam  firma_id sütünunu 6. sütüna taşıdım. kodlamayıda sizin dediğiniz gibi değiştirdim.

DoCmd.OpenForm "firmaincele", , , "[firma_id]=" & Me.Liste8.Column(6)