Skip to main content

AccessTr.neT


Liste kutusunun kaynak kodunu optionboxa bağlı değiştirme

Liste kutusunun kaynak kodunu optionboxa bağlı değiştirme

#2
Seçenek grubunun güncelleştinme sonrasında olayındaki kordları aşağıdaki ile değiştirerek deneyiniz.

Select Case Çerçeve109

Case 1
Me.Listekutusu.RowSource = "SELECT t_ithalat.it_anahar, t_ithalat.it_tedarikci, t_ithalat.it_kalite, t_ithalat.it_konst, t_ithalat.it_en, t_ithalat.it_metraj, t_ithalat.it_fiyat, t_ithalat.it_tarih1, t_ithalat.it_tarih2, t_ithalat.it_durum, t_ithalat.it_yuklemedetay, t_ithalat.it_kontey, t_ithalat.it_odeme, t_ithalat.it_not, [it_tedarikci] & '*' & [it_kalite] & '*' & [it_konst] & '*' & [it_en] & '*' & [it_metraj] & '*' & [it_fiyat] & '*' & [it_tarih1] & '*' & [it_tarih2] & '*' & [it_durum] & '*' & [it_yuklemedetay] & '*' & [it_kontey] & '*' & [it_odeme] & '*' & [it_not] & '*' & [it_kapandi] AS Arama FROM t_ithalat WHERE ((([it_tedarikci] & '*' & [it_kalite] & '*' & [it_konst] & '*' & [it_en] & '*' & [it_metraj] & '*' & [it_fiyat] & '*' & [it_tarih1] & '*' & [it_tarih2] & '*' & [it_durum] & '*' & [it_yuklemedetay] & '*' & [it_kontey] & '*' & [it_odeme] & '*' & [it_not] & '*' & [it_kapandi]) Like '*' & [Formlar]![f_ithalat]![Metin100] & '*')) ORDER BY t_ithalat.it_tarih1;"


Case 2

Me.Listekutusu.RowSource = "SELECT t_ithalat.it_anahar, t_ithalat.it_tedarikci, t_ithalat.it_kalite, t_ithalat.it_konst, t_ithalat.it_en, t_ithalat.it_metraj, t_ithalat.it_fiyat, t_ithalat.it_tarih1, t_ithalat.it_tarih2, t_ithalat.it_durum, t_ithalat.it_yuklemedetay, t_ithalat.it_kontey, t_ithalat.it_odeme, t_ithalat.it_not, t_ithalat.it_kapandi, [it_tedarikci] & '*' & [it_kalite] & '*' & [it_konst] & '*' & [it_en] & '*' & [it_metraj] & '*' & [it_fiyat] & '*' & [it_tarih1] & '*' & [it_tarih2] & '*' & [it_durum] & '*' & [it_yuklemedetay] & '*' & [it_kontey] & '*' & [it_odeme] & '*' & [it_not] & '*' & [it_kapandi] AS Arama " & _
"FROM t_ithalat WHERE (((t_ithalat.it_kapandi)=False) AND (([it_tedarikci] & '*' & [it_kalite] & '*' & [it_konst] & '*' & [it_en] & '*' & [it_metraj] & '*' & [it_fiyat] & '*' & [it_tarih1] & '*' & [it_tarih2] & '*' & [it_durum] & '*' & [it_yuklemedetay] & '*' & [it_kontey] & '*' & [it_odeme] & '*' & [it_not] & '*' & [it_kapandi]) Like '*' & [Formlar]![f_ithalat]![Metin100] & '*')) ORDER BY t_ithalat.it_tarih1;"


Case 3
Me.Listekutusu.RowSource = "SELECT t_ithalat.it_anahar, t_ithalat.it_tedarikci, t_ithalat.it_kalite, t_ithalat.it_konst, t_ithalat.it_en, t_ithalat.it_metraj, t_ithalat.it_fiyat, t_ithalat.it_tarih1, t_ithalat.it_tarih2, t_ithalat.it_durum, t_ithalat.it_yuklemedetay, t_ithalat.it_kontey, t_ithalat.it_odeme, t_ithalat.it_not, t_ithalat.it_kapandi, [it_tedarikci] & '*' & [it_kalite] & '*' & [it_konst] & '*' & [it_en] & '*' & [it_metraj] & '*' & [it_fiyat] & '*' & [it_tarih1] & '*' & [it_tarih2] & '*' & [it_durum] & '*' & [it_yuklemedetay] & '*' & [it_kontey] & '*' & [it_odeme] & '*' & [it_not] & '*' & [it_kapandi] AS Arama " & _
"FROM t_ithalat WHERE (((t_ithalat.it_kapandi)=True) AND (([it_tedarikci] & '*' & [it_kalite] & '*' & [it_konst] & '*' & [it_en] & '*' & [it_metraj] & '*' & [it_fiyat] & '*' & [it_tarih1] & '*' & [it_tarih2] & '*' & [it_durum] & '*' & [it_yuklemedetay] & '*' & [it_kontey] & '*' & [it_odeme] & '*' & [it_not] & '*' & [it_kapandi]) Like '*' & [Formlar]![f_ithalat]![Metin100] & '*')) ORDER BY t_ithalat.it_tarih1;"
End Select

Me.Listekutusu.Requery
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Liste kutusunun kaynak kodunu optionboxa bağlı değiştirme - Yazar: ozanakkaya - 27/01/2016, 18:25