Liste Kutusunda Veri Arama - Baskı Önizleme

Liste Kutusunda Veri Arama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Liste Kutusunda Veri Arama (/konu-liste-kutusunda-veri-arama.html)

Liste Kutusunda Veri Arama - tanyeri - 13/02/2022

Merhaba,
Liste kutusunda gösterilen üç sütun veriyi tek bir metin kutusuna göre metin kutusu change edildiği zaman listeyi güncellemesini istiyorum birkaç yöntem denedim ancak başarılı olamadım yardımcı olabilirseniz sevinirim.
örnek olarak hepsini ayrı ayrı metin kutuları ile arıyor bunu tek bir metin kutusu ile nasıl yapabilirim?

RE: Liste Kutusunda Veri Arama - berduş - 13/02/2022

öncelikle arama yapılacak metin kutusunu ekleyin ismi txtKriter olsun
dağiştiğinde olayını aşağıdaki gibi düzenleyin

Private Sub txtKriter_Change()

Call Suz

End Sub

sonrada süzme fonksiyonunu

Sub Suz()

Krtr = txtKriter.Text

If Krtr <> "" Then Krtr = "[Kosul] Like '*" & Krtr & "*'"

Krtr = IIf(Krtr = "", vbNullString, "WHERE " & Krtr)

  Me.liste_teknikrapor.RowSource = "select * from Detay_TeknikRapor_HizliArama_Sorgusu " & Krtr

  With txtKriter

  .SetFocus

  .SelStart = Len(.Text)

  End With

End Sub

olarak değiştirin
son olarak da sorgu kodunuzu aşağıdaki kodla değiştirip öyle deneyin

SELECT Table1.ID, Table1.SEHIR, Table1.ULKE, Table1.Nufus, [SEHIR] & "|" & [ULKE] & "|" & [Nufus] AS Kosul

FROM Table1;

RE: Liste Kutusunda Veri Arama - tanyeri - 13/02/2022

çok teşekkür ederim ilginiz için çok faydalı oldu

RE: Liste Kutusunda Veri Arama - berduş - 13/02/2022

Rica ederim
İyi çalışmalar
Sorun çözüldüyse cevaplanmışlara taşıyalım