Liste kutusunun kaynak kodunu optionboxa bağlı değiştirme - mehmetb84 - 26/01/2016
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.
Cvp: Liste kutusunun kaynak kodunu optionboxa bağlı değiştirme - ozanakkaya - 27/01/2016
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
Cvp: Liste kutusunun kaynak kodunu optionboxa bağlı değiştirme - mehmetb84 - 27/01/2016
çok teşekkürler.
|