Bölüm 3.1: Uzun Metinler İçinde Birden Fazla Kriterle Arama Yapma
#19
Sayın üstad,
Öncelikle cevabınız için çok teşekkür ederim,
kusura bakmak gibi bir nezaketsizlik hiçbir zaman aklımdan bile geçmedi. sizler gibi bilgi ve emeğini hiçbir karşılık beklemeden, hiç tanımadığı insanlarla paylaşan ve bunu yaparken de karşısındaki ile empati kurma nezaketini de gösteren, 5 yıldır hemen hemen tüm sorularıma yanıtlar bulmamı sağlayan, siz ve sizin gibi şovalye ruhlu kahramanlarla aynı ortamı paylaşmaktan büyük mutluluk duyuyorum. Çok teşekkür ederim, iyi ki varsınız.



  Alıntı
Bu mesajı beğenenler:
#20
ellerinize sağlık. güzel olmuş.



  Alıntı
Bu mesajı beğenenler:
#21
bu kodların c# halinide paylaşabilirmisiniz.



  Alıntı
Bu mesajı beğenenler:
#22
Sayın arkadaşlar merhaba,
taruz üstadımızın cevapladığı bu kodları hala kullanmaya devam ediyorum. acaba bu kodun içerisine tarih biçimli bir arama alanı daha eklemek için kodu nasıl düzenlemek icap eder?



  Alıntı
Bu mesajı beğenenler:
#23
(07-04-2012, 18:29)Taruz demiş ki: 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


Tablo1 isimli kayıt kaynağında veri türü tarih olan bir alanı daha Bu kod üzerindeki sorguya iki tarih arasını sorgulamak için arama kriteri olarak dahil etmek istiyorum. 
ikinci where arama kriterini nasıl yazmam gerektiğini bulamadım, 
Me.Liste8.Form.RecordSource = "select * from  " & kaynak & "  where " & Me.Metin5 satırına and " between " & Tarih1 & " And " & Tarih2
şeklinde yazdım ancak kod hata verdi. yardımcı olabilir misiniz?



  Alıntı
Bu mesajı beğenenler:
#24
(09-12-2019, 21:13)abkbek demiş ki: Tablo1 isimli kayıt kaynağında veri türü tarih olan bir alanı daha Bu kod üzerindeki sorguya iki tarih arasını sorgulamak için arama kriteri olarak dahil etmek istiyorum. 
ikinci where arama kriterini nasıl yazmam gerektiğini bulamadım, 
Me.Liste8.Form.RecordSource = "select * from  " & kaynak & "  where " & Me.Metin5 satırına and " between " & Tarih1 & " And " & Tarih2
şeklinde yazdım ancak kod hata verdi. yardımcı olabilir misiniz?

Visual Basic
  1. Privare Sub ......Click()
  2. ...
  3. ...
  4. Next
  5. Metin5 = Metin5 & IIf(Tarih1 <> "" And Tarih2 <> "", " and Tarih between #" & Format(Tarih1, "mm\/dd\/yyyy") & "# And #" & Format(Tarih2, "mm\/dd\/yyyy") & "#", vbNullString)
  6. kaynak = Me.Liste8.Form.RecordSource
  7. Me.Liste8.Form.RecordSource = "select * from " & kaynak & " where " & Me.Metin5
  8. End If
  9.  
  10. ....
  11. End if



Seklinde sonuc alirsiniz.



  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 26.997 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 59.164 07-03-2021, 00:08
Son Mesaj: kamil_55
access-sql-14 Bölüm 6: Liste Kutusundaki Verileri Dinamik Filtreleme Taruz 11 17.011 22-11-2020, 01:28
Son Mesaj: dsezgin
access-sql-6 Bölüm 3: Tek veya İki Kriterle Birlikte Filtreleme Taruz 37 33.899 19-07-2019, 09:49
Son Mesaj: halil.tefci
access-sql-6 Bölüm 1: Form Üzerinden Filtreleme Taruz 33 40.677 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 52.884 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 23.467 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 33.810 09-02-2018, 11:38
Son Mesaj: Taruz

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi