Cvp: seçenek kutusu yoluyla listekutusu kayıt kaynağını değiştirmek - ozanakkaya - 28/02/2016
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
Cvp: seçenek kutusu yoluyla listekutusu kayıt kaynağını değiştirmek - mehmetb84 - 29/02/2016
Ozan Bey mükemmelsiniz, çok teşekkür ederim. Kafa yoran diğer arkadaşlar siz de sağolun.
|