Bölüm 9.1: Dinamik Arama Ve Aranan Kelimeyi Renklendirme
#31
Dostlar;


Sayın Taruz üstadın, eklediği dosyayı  ya da  linkini göremiyorum. Ah gözlerim!



  Alıntı
Bu mesajı beğenenler:
#32
Konudan biz de yararlandık, emeği geçenlere çok teşekkürler..



  Alıntı
Bu mesajı beğenenler:
#33
sn.dsezgin, sn.Taruz'un yaptığı bu harika çalışmadan biz de uygulamamızda yararlandık ellerine sağlık. Bu çalışmayı birden fazla alana uygulayabilir miyiz acaba, eğer bu mümkünse kodlamayı nasıl yapmalıyız? 

alan = "[PARTİ_1]" & "[parti_2]"  gibi çoğaltmak istediğimizde diğer kodlar nasıl oluşturulmalı acaba? teşekkürler.
..................

şöyle denedik; ilk alan araması için sn.Taruz'un kodlarının bitimine end If ile devam ettirip sonraki alanlar için aynı kodları aldık ve alan isimlerini değiştirerek uyguladık birden fazla sütunda arama yapılabiliyor.



  Alıntı
Bu mesajı beğenenler:
#34
(30-12-2021, 22:49)kamil_55 demiş ki: sn.dsezgin, sn.Taruz'un yaptığı bu harika çalışmadan biz de uygulamamızda yararlandık ellerine sağlık. Bu çalışmayı birden fazla alana uygulayabilir miyiz acaba, eğer bu mümkünse kodlamayı nasıl yapmalıyız? 

alan = "[PARTİ_1]" & "[parti_2]"  gibi çoğaltmak istediğimizde diğer kodlar nasıl oluşturulmalı acaba? teşekkürler.
..................

şöyle denedik; ilk alan araması için sn.Taruz'un kodlarının bitimine end If ile devam ettirip sonraki alanlar için aynı kodları aldık ve alan isimlerini değiştirerek uyguladık birden fazla sütunda arama yapılabiliyor.

Visual Basic
  1. Sub TrzRenkliArama()
  2. Dim alan(1) As String
  3. Dim Kelime As String
  4. Dim textkaynak(1) As String
  5. Const yildiz = "*"
  6.  
  7. If Me.altform.Form.Dirty Then Form.Dirty = False
  8. If IsNull(arama) Then 'Me.arama arama kutusun adýdýr.
  9. If Me.altform.Form.FilterOn Then 'altform , alt formunuzun adýdýr.
  10. Me.altform.Form.FilterOn = False
  11. End If
  12.  
  13.  
  14. Me.altform.Form.renkligoster0.Visible = 0
  15. Me.altform.Form.renkligoster1.Visible = 0
  16. Else
  17. alan(0) = "[Adi]" 'aramanýn yapýlacaðý alan adý ile deðiþtirilecek
  18. alan(1) = "[Soyad]" 'aramanýn yapýlacaðý alan Soyad ile deðiþtirilecek
  19.  
  20. Kelime = arama
  21. Me.altform.Form.Filter = alan(0) & " Like '" & yildiz & Kelime & yildiz & "' or " & alan(1) & " Like '" & yildiz & Kelime & yildiz & "'"
  22. Me.altform.Form.FilterOn = True
  23. textkaynak(0) = "=IIf(" & alan(0) & " Is Null, Null, " & _
  24. "Replace(" & alan(0) & ", """ & Kelime & """, """ & "<b><font color=""""red"""">" & Kelime & "</font></b>" & """))"
  25. textkaynak(1) = "=IIf(" & alan(1) & " Is Null, Null, " & _
  26. "Replace(" & alan(1) & ", """ & Kelime & """, """ & "<b><font color=""""blue"""">" & Kelime & "</font></b>" & """))"
  27.  
  28. Me.altform.Form.renkligoster0.ControlSource = textkaynak(0)
  29. Me.altform.Form.renkligoster1.ControlSource = textkaynak(1)
  30. End If
  31. End Sub



olabilir.



  Alıntı
Bu mesajı beğenenler:
#35
Merhaba,

Taruz'a yapmış olduğu çalışma için çok teşekkürler.  Bu yöntemi ekteki uygulamamda kullandım. Arama sonucunda oluşan filtre üzerinden "Rotaya Ekle" düğmesine bastığımda yan taraftaki listbox'a Lokasyon textbox'ındaki veri yerine filtre için oluşturulan html satır kopyalanmakta.
Lokasyon alanınındaki gerçek veriyi kopyalamak için nasıl bir yol izlemeliyiz?


Eklenti Dosyaları
.zip   Mesafe.zip (Boyut: 57,04 KB / İndirilme: 2)



  Alıntı
Bu mesajı beğenenler:
#36
(30-03-2022, 13:15)runonur demiş ki: Merhaba,

Taruz'a yapmış olduğu çalışma için çok teşekkürler.  Bu yöntemi ekteki uygulamamda kullandım. Arama sonucunda oluşan filtre üzerinden "Rotaya Ekle" düğmesine bastığımda yan taraftaki listbox'a Lokasyon textbox'ındaki veri yerine filtre için oluşturulan html satır kopyalanmakta.
Lokasyon alanınındaki gerçek veriyi kopyalamak için nasıl bir yol izlemeliyiz?

Kendi sorumu çözdüm. Şöyle ki; filtre için kullanılan textbox haricinde aynı alanı içeren gizli bir textbox oluşturdum. Rotaya ekle düğmesine basıldığında gizli textbox taki veriyi listbox'a ekliyor. 
Ekte düzgün çalışan halini de yükledim.


Eklenti Dosyaları
.zip   Mesafe.zip (Boyut: 57,54 KB / İndirilme: 14)



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-7 Bölüm 7: Liste Kutusundaki Verileri Dinamik ve Hızlı Bir Şekilde Filtreleme Taruz 81 52.460 07-03-2021, 00:08
Son Mesaj: kamil_55
access-sql-14 Bölüm 6: Liste Kutusundaki Verileri Dinamik Filtreleme Taruz 11 15.704 22-11-2020, 01:28
Son Mesaj: dsezgin
access-sql-11 Bölüm 3.1: Uzun Metinler İçinde Birden Fazla Kriterle Arama Yapma Taruz 23 16.711 11-12-2019, 01:13
Son Mesaj: dsezgin
access-sql-6 Bölüm 3: Tek veya İki Kriterle Birlikte Filtreleme Taruz 37 30.660 19-07-2019, 09:49
Son Mesaj: halil.tefci
access-sql-6 Bölüm 1: Form Üzerinden Filtreleme Taruz 33 37.698 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 46.801 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 21.001 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 30.871 09-02-2018, 11:38
Son Mesaj: Taruz

Foruma Git:


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