AccessTr.neT

AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > seçenek kutusu yoluyla listekutusu kayıt kaynağını değiştirmek
Tam Versiyon: seçenek kutusu yoluyla listekutusu kayıt kaynağını değiştirmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4

mehmetb84

26/02/2016, 16:19
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

C*e*l*o*y*c*e

26/02/2016, 18:27
=0 (eşitse 0 )
<>0 (eşit değilse 0)
( boş bırak birşey yazma )

mehmetb84

26/02/2016, 18:32
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.

atoz112

26/02/2016, 21:09
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.

mehmetb84

27/02/2016, 01:54
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.

ozguryasin

27/02/2016, 02:30
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.
Sayfalar: 1 2 3 4
AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > seçenek kutusu yoluyla listekutusu kayıt kaynağını değiştirmek