Skip to main content

AccessTr.neT


seçenek kutusu yoluyla listekutusu kayıt kaynağını değiştirmek

seçenek kutusu yoluyla listekutusu kayıt kaynağını değiştirmek

Çözüldü #1
MErhaba arkadaşlar,
daha önce yardımcı olduğunuz kodlar sayesinde düzenlemeye çalıştığım kodlarda bir eksiklik var.
ilk seçenekte fatura_bag= 0 ikincisinde fatura_Bag= sıfır değil üçüncü seçenekte tamamını göstermek istiyorum. veritabanım ektedir.
Yardımcı olur musunuz?
Kod:
Private Sub Çerçeve99_AfterUpdate()
Select Case Çerçeve99
Case 1




Me.Listekutusu.RowSource = "SELECT t_faturalar.fat_otomatik, t_faturalar.fat_tarih AS Tarihi, t_faturalar.fat_no AS Faturano, t_faturalar.fat_tedarikci AS Tedarikçi, t_faturalar.fat_adetmt AS Mt, t_faturalar.fat_tip AS Tip, t_faturalar.fat_fiyatdov AS Fiyat, t_faturalar.fat_doviz AS Pb, t_faturalar.fat_vade AS Vade, t_faturalar.fat_kimlik AS Kimlik" & _
"FROM t_faturalar WHERE(((t_faturalar.fat_tarih) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((OR (((t_faturalar.fat_no) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_tedarikci) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_adetmt) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_tip) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_fiyatdov) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0))" & _
"OR (((t_faturalar.fat_kimlik) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND (((t_faturalar.fat_bag)=0))ORDER BY t_faturalar.fat_tarih DESC;"




Case 2
Me.Listekutusu.RowSource = "SELECT t_faturalar.fat_otomatik, t_faturalar.fat_tarih AS Tarihi, t_faturalar.fat_no AS Faturano, t_faturalar.fat_tedarikci AS Tedarikçi, t_faturalar.fat_adetmt AS Mt, t_faturalar.fat_tip AS Tip, t_faturalar.fat_fiyatdov AS Fiyat, t_faturalar.fat_doviz AS Pb, t_faturalar.fat_vade AS Vade, t_faturalar.fat_kimlik AS Kimlik" & _
"FROM t_faturalar WHERE(((t_faturalar.fat_tarih) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_no) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_tedarikci) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_adetmt) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_tip) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0)) OR (((t_faturalar.fat_fiyatdov) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0))" & _
"OR (((t_faturalar.fat_kimlik) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*') AND ((t_faturalar.fat_bag) Is not Null Or (t_faturalar.fat_bag)=0))ORDER BY t_faturalar.fat_tarih DESC;"
Case 3
Me.Listekutusu.RowSource = "SELECT t_faturalar.fat_otomatik, t_faturalar.fat_tarih AS Tarihi, t_faturalar.fat_no AS Faturano, t_faturalar.fat_tedarikci AS Tedarikçi, t_faturalar.fat_adetmt AS Mt, t_faturalar.fat_tip AS Tip, t_faturalar.fat_fiyatdov AS Fiyat, t_faturalar.fat_doviz AS Pb, t_faturalar.fat_vade AS Vade, t_faturalar.fat_kimlik AS Kimlik" & _
"FROM t_faturalar WHERE (((t_faturalar.fat_tarih) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_no) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_tedarikci) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_adetmt) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_tip) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_fiyatdov) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*')) OR (((t_faturalar.fat_kimlik) Like '*' & [Formlar]![t_hambezsiparisyyy]![gecici] & '*'))" & _
"ORDER BY t_faturalar.fat_tarih DESC;"
End Select
Me.Listekutusu.Requery
End Sub

.rar optionbox.rar (Dosya Boyutu: 38,33 KB | İndirme Sayısı: 10)
Cevapla
#2
=0 (eşitse 0 )
<>0 (eşit değilse 0)
( boş bırak birşey yazma )
Cevapla
#3
case3'de hiç bir koşul yazılı değil, fakat o da çalışmıyor. Kodun yazımında bir problem var sanırım.
Cevapla
#4
sayın mehmetb84,

öncelikle;
sürüm farkı nedeni ile uygulamanız incelenemediğinden sadece yazdığınız kodlardan yorumlamak gerekirse;

CASE 1'de fat_bag alanı için sadece 0 (Sıfır) değerine EŞİT olanlar için kullanmışsınız fakat,

CASE 2'de ise hem 0 değerine eşit hem de EŞİT OLMAYAN diye kullanmışsınız.zaten bir öncekinde 0 için kullanmışsınız.

burada,
Sıfır değerinden BÜYÜK (>0) diye de yazabilirsiniz.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
Söylediklerinizi düzelttim fakat yine çalışmıyor. Ekte görebilirsiniz.
Zaten dediğim gibi eşitlik veya sıfırdan farklılık gibi bir koşul olmamasına rağmen 3. seçenek seçili olduğunda da veriler gelmiyordu.

Bir göz atabilirseniz örneğim ekte.
.rar optionbox2.rar (Dosya Boyutu: 37,56 KB | İndirme Sayısı: 2)
.rar optionbox2.rar (Dosya Boyutu: 37,56 KB | İndirme Sayısı: 3)
Cevapla
#6
merhaba; sorunuza bakıyordum. örnek sayısı az biraz daha fazla olsaydı daha iyiydi. birde tam olarak neye göre bakacağımızı açıklasa idiniz iyiydi. şu an bakıyorum.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task