Kriter ile listeleme
Tarih
21/04/2010 12:57
Konu Sahibi
accessman
Yorumlar
6
Okunma
2219
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ü 
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.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çö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.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Çö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..
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çö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ü 
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.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çö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
  Kritere Göre Listeleme Allback 8 395 16/06/2016, 14:58 Allback
  Accesteki tabloları birleştirip dreamweaverde listeleme volcy123 3 311 24/05/2016, 17:56 atoz112
Çözüldü Listeleme sorunu kadirdursun 8 821 30/06/2015, 12:55 kadirdursun
Çözüldü Açılan Kutudan Seçilene Göre Kriter Belirleme Allback 9 826 24/06/2015, 16:10 Allback
Çözüldü Süresi dolan kaydı hatırlatma ve listeleme Dadadu 6 753 07/06/2015, 23:25 Dadadu


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