Kriter ile listeleme
Tarih
21/04/2010 12:57
Konu Sahibi
accessman
Yorumlar
6
Okunma
2286
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
Sponsor Reklam
iyi günler
eklediğim örnekte
liste0 dan çoklu seçim ile liste2 süzme yapıyorum
ama biraz farklı
amacım liste0 da bulunan kelimelerden liste2 de olanların süzülmesi
görünşte farklı bir şey yok gibi

şöyle anlatayım
mesela liste0 da seçtiğimiz kelime
KAT
liste2 de içinde KAT kelimesi geçenler listelenecek

BODRUM KAT PANOSU (TB)
C BLOK 1. KAT DAĞITIM TABLOSU (TC.1)
B BLOK ZEMİN KAT ANA DAĞITIM TABLOSU (TBA)

seçtiğimiz kelimeler
KAT
BLOK
olduğunda liste2 de süzülenler

C BLOK 1. KAT DAĞITIM TABLOSU (TC.1)
B BLOK ZEMİN KAT ANA DAĞITIM TABLOSU (TBA)

seçtğimiz kelimeler
KAT
BLOK
ANA
olduğunda liste2 de sadece süzülen

B BLOK ZEMİN KAT ANA DAĞITIM TABLOSU (TBA)

olmalı.yani her üç kelimeninde içinde geçtikleri süzülecek

bunun için tip (K) oluşturup bu tipe string tanımladım (kel)
liste0 da seçtiğim elemanın Liste0.Column(1, v) değerini

K(v).kel = Liste0.Column(1, v)
şeklinde atayıp

metin6 da kriter olarak birleştirdimseçtiğim kelimeler arasına konması içinde kr2 tanımlayıp

kr2 = " & ""*"" and ""*"" & "

bunu like ile kullanmaya çalıştım
ama bir yerlerde hem mantık hemde teknik açıdan muhtemelen hata yapıyorum

nasıl yapmalıyım

amacım çoklu seçimle liste ikide seçtiğim her kelimenin birlikte bulunduğu elemanların listelenmesi
yardımlarınız için teşekkürler

bu bir çok arkadaşımızın işine yarayabilir diye düşünüyorum


Ek Dosyalar
.rar   kriter.rar (Dosya Boyutu: 19,15 KB / İndirme Sayısı: 8)
@benbendedeilem
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.546
7
30/10/2008
804
Tekirdağ
Ofis XP
Bugün,07:55
Çözüldü 
Kodunuzu aşağıdaki şekilde değiştirin.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Liste0_afterUpdate()
Dim v
     Me.Kriter = ""
    'EĞER LİSTE BOŞSA
    If Me.Liste0.ItemsSelected.Count = 0 Then
        Me.Liste2.RowSource = ""
        MsgBox "LÜTFEN LİSTEDEN SEÇİM YAPIN", vbExclamation, "DİKKAT"
        Exit Sub
    Else '
        'LİSTE KUTUSUNDAN KRİTER EKLEME
        For Each v In Liste0.ItemsSelected
            Id = Liste0.Column(1, v)
            If Me.Kriter = "" Then
                Me.Kriter = " Where Yer Like '*" & Liste0.Column(1, v) & "*'"
            Else
                Me.Kriter = Kriter & " And Yer Like '*" & Liste0.Column(1, v) & "*'"
            End If
        Next v
        Liste2.RowSource = "Select Yerkod, Yer From Yer" & Me.Kriter
    End If
End Sub




Ek Dosyalar
.rar   Kriter_Seruz.rar (Dosya Boyutu: 16,28 KB / İndirme Sayısı: 24)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.053
31/10/2008
63
İstanbul
-
14/02/2017,20:46
Çözüldü 
Sponsor Reklam
Sayın Seruz;

Hocam merhaba.. Bizlere de örnek olacak bir dosya..

Liste kutusunu ve kriter alanını boşaltmak için ne yapmalıyım?

İlgi ve yanıtınız için önceden teşekkür ederim.

Sevgi ve saygılar..
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.546
7
30/10/2008
804
Tekirdağ
Ofis XP
Bugün,07:55
Çözüldü 
Soldaki kelimelerden herhangi bir şey seçmezseniz, liste kutusu otomatik olarak boşalacaktır.
Kriter'i silmek için
Kodda
Me.Kriter = ""
ifadesini en başa almak gerekiyor.
Üstteki yazdığım kodu tekrar düzenledim. Onu kopyalayabilirsiniz.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
Sponsor Reklam
sn.seruz
tek kelimeyle süper tam da istediğim gibi
ben kodlar arasında kopyala yapıştır ile boğuşurken siz çok güzel ve kısa bir şekilde hallettiniz

birde
şöyle bir şey olsa
liste0 tıklandığında ilk tıkladığımız ile ilgili seçilebilecek elemanlar kalsa
nasıl mı şöyle ki
ilk seçtiğimiz
ANA
liste2 de mesela
DATA
kelimesi hiç bir arada kullanılmamış ozaman bu artık gözükmesin
böylece her seçimden sonra liste giderek kısalacak ve ancak birlikte seçebileceklerimiz kalacak

teşekkürler
Where Yer Like '*ANA*' And Yer Like '*KUVVET*'
ile
(((yer.yer) Like "*" & [m] & "*" And (yer.yer) Like "*" & [mm] & "*"))
arasında
nasıl benzerlik ve fark var teşekkürler
@benbendedeilem
Cevapla

Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.546
7
30/10/2008
804
Tekirdağ
Ofis XP
Bugün,07:55
Çözüldü 
(21/04/2010, 14:02)accessman Adlı Kullanıcıdan Alıntı: birde şöyle bir şey olsa
liste0 tıklandığında ilk tıkladığımız ile ilgili seçilebilecek elemanlar kalsa
nasıl mı şöyle ki, ilk seçtiğimiz ANA liste2 de mesela DATA
kelimesi hiç bir arada kullanılmamış ozaman bu artık gözükmesin
böylece her seçimden sonra liste giderek kısalacak ve ancak birlikte seçebileceklerimiz kalacak

Yapılmasına yapılır da, farklı bir kodlama ile listedeki tüm satırların içindeki kelimeleri tek tek tespit edip, tablodaki alanlarla karşılaştırmak ve gruplamak falan lazım.
Satırdaki boşluklara göre kelimeler ayrılabilse daha kolay olurdu ama sizin örnekte farklı kelimeler var. Mesela kelime listesinde PANO adlı kelime var ama satırlarda PANOSU olarak geçiyor.
Bu nedenle her harfi tek tek ele alıp, oluşan kelimeleri tabloyla karşılaştırmak falan lazım, yapılır tabii ki ama bu uzun iş, maalesef o kadar boş vaktim yok.
(21/04/2010, 14:02)accessman Adlı Kullanıcıdan Alıntı: Where Yer Like '*ANA*' And Yer Like '*KUVVET*'
ile
(((yer.yer) Like "*" & [m] & "*" And (yer.yer) Like "*" & [mm] & "*"))
arasında nasıl benzerlik ve fark var teşekkürler
Genel olarak benziyor ama Metin ifadelerinde tırnaklar çok önemli, onlar farklı.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  TAKVİM renklendirme ve listeleme 2 Doğan Uludüz 2 104 18/02/2017, 18:24 Doğan Uludüz
  Birinci ComboBox seçimine göre ikincisinde kriter değerlerini gösterme İbrahim Şenol 5 49 17/02/2017, 21:01 atoz112
  TAKVİM renklendirme ve listeleme Doğan Uludüz 6 110 14/02/2017, 15:49 Doğan Uludüz
  Çalışan SQL e kriter ilave etme yenginoglu 2 33 13/02/2017, 12:41 yenginoglu
  Veri çekerken kritere göre listeleme hk. okumas 2 55 07/02/2017, 14:01 okumas


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya