Access SQL   ›   ACCESS KÜTÜPHANESİ   ›   ACCESS BİLGİ DEPOSU   ›   FORM ÜZERİNDEN FİLTRELEME UYGULAMALARI   ›   Bölüm 3.1: Uzun Metinler İçinde Birden Fazla Kriterle Arama Yapma

Bölüm 3.1: Uzun Metinler İçinde Birden Fazla Kriterle Arama Yapma
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 236 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 55 / 56
#1
access-sql-11  07-04-2012, 18:29
[Resim: renkliara.jpg]


Merhaba arkadaşlar..

Bu başlık, değerli üyemiz sayın abkbek tarafından burada açılan konu üzerine hazırlanmıştır..

Burada amaç arama kutusuna girilen birden fazla anahtar kelimenin geçtiği kayıtları filtrelemek.. Tek koşulumuz var; kelimeler arasında boşluk bırakmak.. Tabi tek bir kelime de aratabiliriz; bunda bir sıkıntı yok..

Kayıt içinde kelimeleri filtrelemede Ve (And), veya (Or) işleçlerini kullanmak seçenekler arasında..

Filtrelemeyi sağlayan yapı bu şekilde..:

Visual Basic
  1. If Nz(metin1, "") <> "" Then
  2.     trz = ""
  3.     If sec = 2 Then ff = " or " Else: ff = " and "
  4.     Me.Liste8.Form.RecordSource = "tablo1"   'buraya başlangıçta altformun kaynağındaki tablonun adı yazılacak
  5.     alanadi = "alan"    'arama alanı buraya yazılacak
  6.     For i = 1 To Len(metin1)
  7.  
  8.         aa = aa + 1
  9.         If Mid(metin1, i, 1) = " " Then
  10.             bb = bb + 1
  11.             trz = trz & "" & alanadi & " " & "like ""*"" &  '" & Mid(metin1, i - (aa - 1), aa - 1) _
  12.                   & "' & ""*"" " & ff & " "
  13.             aa = 0
  14.  
  15.  
  16.         Else
  17.             If bb >= 1 Then
  18.                 cc = StrReverse(metin1)
  19.                 cc = Left(cc, InStr(1, cc, " ") - 1)
  20.                 Metin5 = trz & "" & alanadi & " " & "like ""*"" & '" & StrReverse(cc) & "' & ""*"""
  21.             Else
  22.                 Metin5 = "" & alanadi & " " & "like ""*"" &  '" & metin1 & "' & ""*"" "
  23.             End If
  24.  
  25.         End If
  26.     Next
  27.     kaynak = Me.Liste8.Form.RecordSource
  28.     Me.Liste8.Form.RecordSource = "select * from  " & kaynak & "  where " & Me.Metin5
  29. End If



Resmini gördüğünüz anahtar kelimelerin renklendirilmesi 2007 ve üzeri versiyonlarda geçerlidir.. Bu özelliği incelemek için Fitreleme3-1-Renklendirme dosyasını indirebilirsiniz.. Bu örnekte en fazla üç kelime renklendirilir.. Diğer dosya 2003 kullanan dostlar için.. Renklendirme ile ilgili diğer filtreleme örneği linktedir..:

Bölüm 9.1: Dinamik Arama ve Aranan Kelimeyi Renklendirme
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
abkbek
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 08.04.2008
Toplam 92 konu açtı.
Toplam 478 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003, Office 2019,
Beğeniler: 0 / 0
#2
08-04-2012, 01:56
Sayın üstadım,
çok teşekkür ederim. yine hızır gibi yetiştiniz



  Bul
  Alıntı
Bu mesajı beğenenler:
d_rago_n
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 24.02.2010
Toplam 44 konu açtı.
Toplam 496 yorum yaptı.
Toplam 5 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 0 / 1
#3
11-04-2012, 08:57
Sayın Taruz hocam;
Filtreleme konusunda son noktayı koydunuz sanırım.Çok güzel bir örneklede bağladınız.
Emeğinize ve paylaşımınız için çok Teşekkürler...



  Bul
  Alıntı
Bu mesajı beğenenler:
MirzaKatar
Access Takımı

*
Kayıt Tarihi: 18.10.2010
Toplam 66 konu açtı.
Toplam 1.457 yorum yaptı.
Toplam 17 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 6
#4
11-04-2012, 14:31
(11-04-2012, 08:57)d_rago_n demiş ki: Sayın Taruz hocam;
Filtreleme konusunda son noktayı koydunuz sanırım.Çok güzel bir örneklede bağladınız.
Emeğinize ve paylaşımınız için çok Teşekkürler...

Aynen katılıyorum. Taruz daha iyisini yapana kadar en iyisi bu Smile



  Bul
  Alıntı
Bu mesajı beğenenler:
Amadeus
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 13.11.2008
Toplam 15 konu açtı.
Toplam 682 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 0 / 2
#5
15-11-2012, 22:55
Paylaşım için teşekkkürler Taruz hocam.



  Bul
  Alıntı
Bu mesajı beğenenler:
iscinar
Kıdemli Üye >1000

*
Kayıt Tarihi: 21.08.2010
Toplam 48 konu açtı.
Toplam 1.147 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 TR, Office 2013 TR,
Beğeniler: 0 / 2
#6
18-11-2012, 15:38
Taruz hocam o kadar kullanışlı örnekleriniz var ki;
Her biri için ayrı ayrı teşekkür mesajı yazılsa herhalde forumda müthiş bir depolama alanına ihtiyaç olacak.

Teşekkürler... Vv



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-12 Bölüm 9.1: Dinamik Arama Ve Aranan Kelimeyi Renklendirme Taruz 37 25.712 10-11-2025, 02:29
Son Mesaj: dsezgin
access-sql-7 Bölüm 7: Liste Kutusundaki Verileri Dinamik ve Hızlı Bir Şekilde Filtreleme Taruz 81 56.596 07-03-2021, 00:08
Son Mesaj: kamil_55
access-sql-14 Bölüm 6: Liste Kutusundaki Verileri Dinamik Filtreleme Taruz 11 16.582 22-11-2020, 01:28
Son Mesaj: dsezgin
access-sql-6 Bölüm 3: Tek veya İki Kriterle Birlikte Filtreleme Taruz 37 32.621 19-07-2019, 09:49
Son Mesaj: halil.tefci
access-sql-6 Bölüm 1: Form Üzerinden Filtreleme Taruz 33 39.596 26-03-2019, 16:12
Son Mesaj: celalll
access-sql-7 Bölüm 8: Kayıtları Alana Göre Seçerek Dinamik ve Hızlı Bir Şekilde Filtreleme Taruz 77 50.523 14-01-2019, 13:08
Son Mesaj: mmert06
access-sql-12 Bölüm 2.1: Form Üzerinden İki Tarih Arasında Filtreleme Taruz 25 22.631 16-02-2018, 13:33
Son Mesaj: GökhanU
access-sql-6 Bölüm 9: Açılan Kutuda 'Tümü' Seçeneği Kullanarak Filtreleme Taruz 32 32.823 09-02-2018, 11:38
Son Mesaj: Taruz

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):