Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
21/04/2010 12:57
Konu Sahibi
accessman
Yorumlar
6
Okunma
2849
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

accessman

Aktif Üye
Aktif Üye
 Belirtilmemiş
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
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ı: 9)
@benbendedeilem

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 46
1.561
7
30/10/2008
814
Tekirdağ
BT Şefi
Ofis XP
04/07/2018,16:07
Çö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ı: 25)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

assenucler

Gümüş Üye
Gümüş Üye
A..... SE.... ŞE....
2.054
31/10/2008
63
İstanbul
-
03/02/2018,00:29
Çözüldü 
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..



Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 46
1.561
7
30/10/2008
814
Tekirdağ
BT Şefi
Ofis XP
04/07/2018,16:07
Çö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

Kullanici Avatari

accessman

Aktif Üye
Aktif Üye
 Belirtilmemiş
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
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

Kullanici Avatari

Seruz

Uzman
Uzman
SE.... UZ....
 46
1.561
7
30/10/2008
814
Tekirdağ
BT Şefi
Ofis XP
04/07/2018,16:07
Çö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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Tarih Kriterine Göre Rapor Listeleme fascioğlu 2 157 09/05/2018, 13:55
Son Yorum: fascioğlu
Çözüldü Tarihe Göre Listeleme fascioğlu 10 262 27/04/2018, 12:08
Son Yorum: fascioğlu
Çözüldü Eşleşen Verileri Listeleme Hakkında Yardım Gökhan Kulaksızoğlu 7 293 07/01/2018, 04:26
Son Yorum: ozanakkaya
Çözüldü Listeleme İçin Yardım yaldiz42 1 144 04/01/2018, 16:37
Son Yorum: ozanakkaya
Çözüldü Formdaki Değerlere Göre Raporu Listeleme husem 7 434 01/10/2017, 21:44
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.