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

Çözüldü #1
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.
.rar optionbox.rar (Dosya Boyutu: 46,17 KB | İndirme Sayısı: 3)
.rar optionbox2003.rar (Dosya Boyutu: 40,79 KB | İndirme Sayısı: 4)
Son Düzenleme: 26/01/2016, 18:18, Düzenleyen: mehmetb84.
Cevapla
#2
Seçenek grubunun güncelleştinme sonrasında olayındaki kordları aşağıdaki ile değiştirerek deneyiniz.

Visual Basic Code
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

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
çok teşekkürler.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da