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)