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

MErhaba arkadaşlar,
Ekteki veritabanımda bulunan liste kutusunu, optionbox'a bağlı olarak değiştirmek için daha önce Ozan bey'in başka çalışmam için yazmış olduğu kodu uyarlama çalıştım. Seçeneği tıkladığım anda liste kutusundaki veriler kayboluyor.Bir yerlerde hata yaptığımın farkındayım ama nerede olduğunu bulamıyorum.

Yardımcı olursanır sevinirim.

office 2003 fkullananlar için dönüştürüp ekledim.

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

çok teşekkürler.