Skip to main content

AccessTr.neT


seçenek kutusu yoluyla listekutusu kayıt kaynağını değiştirmek

seçenek kutusu yoluyla listekutusu kayıt kaynağını değiştirmek

#19
Sayın mehmetb84, siz formda arama olayını yanlış uygulamışsınız. Form üzerinde veri arama ile ilgili konuyu tekrar inceleyiniz.

Çerçeve99'un güncelleştirme sonrasında olayına aşağıdaki kodu ekle, tıklandğında olayına değil.


Select Case Çerçeve99.Value

Case 1

Me.Listekutusu.RowSource = "SELECT fat_otomatik, fat_tarih AS Tarihi, fat_no AS Faturano, fat_tedarikci AS Tedarikçi, fat_adetmt AS Mt, fat_tip AS Tip, fat_fiyatdov AS Fiyat, fat_doviz AS Pb, fat_vade AS Vade, fat_kimlik AS Kimlik, fat_bag, [fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik] AS Arama FROM t_faturalar WHERE (((fat_bag)=0) AND (([fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik]) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) ORDER BY fat_tarih DESC;"

Case 2

Me.Listekutusu.RowSource = "SELECT fat_otomatik, fat_tarih AS Tarihi, fat_no AS Faturano, fat_tedarikci AS Tedarikçi, fat_adetmt AS Mt, fat_tip AS Tip, fat_fiyatdov AS Fiyat, fat_doviz AS Pb, fat_vade AS Vade, fat_kimlik AS Kimlik, fat_bag, [fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik] AS Arama FROM t_faturalar WHERE (((fat_bag)<> 0) AND (([fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik]) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) ORDER BY fat_tarih DESC;"


Case 3

Me.Listekutusu.RowSource = "SELECT fat_otomatik, fat_tarih AS Tarihi, fat_no AS Faturano, fat_tedarikci AS Tedarikçi, fat_adetmt AS Mt, fat_tip AS Tip, fat_fiyatdov AS Fiyat, fat_doviz AS Pb, fat_vade AS Vade, fat_kimlik AS Kimlik, fat_bag, [fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik] AS Arama FROM t_faturalar WHERE ((([fat_tarih] & '*' & [fat_no] & '*' & [fat_tedarikci] & '*' & [fat_adetmt] & '*' & [fat_tip] & '*' & [fat_kimlik]) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) ORDER BY fat_tarih DESC;"

End Select

Me.Listekutusu.Requery
Cevapla
#20
Ozan Bey mükemmelsiniz, çok teşekkür ederim. Kafa yoran diğer arkadaşlar siz de sağolun.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da