Soru ADO ile Access Veritabanında "içerir" Filtrelemesi

[bluefalcon]

Arkadaşlar Merhaba,

Bir user form üzerinden acces veritabanındaki verileri filtreleyerek listbox nesnesine listeliyorum. Sorunum aşağıdaki kod satırındaki LIKE kısmında. Userform üzerindeki textboxa girilecek örneğin Ahmet isimli kişiye gelen kargoların listelenmesinde. Kod satırındaki sıkıntıyı nedense bulamadım * yerine % operatörünü de denedim olmadı, acces üzerinde sorgu yazarak içerir kriterine bir değer yazınca çalışıyor ama VBA tarafında aynı mantığı çalıştıramadım. Destek olursanız çok memnun olurum.

Set rs = CreateObject("ADODB.recordset")
isimlistele = "SELECT * FROM [GELEN_KARGO_TAKIP] WHERE ALICIADISOYADI LIKE '*" & .txtALAN & "*' And KAYITYAPAN = " & prs
rs.Open isimlistele, AdoCN, 1, 3

 

[Zeki Gürsoy]

KAYITYAPAN alanının Char/VarChar olabilme ihtimali var. Aşağıdaki gibi deneyin.

Set rs = CreateObject("ADODB.recordset")
isimlistele = "SELECT * FROM [GELEN_KARGO_TAKIP] WHERE ALICIADISOYADI LIKE '%" & txtALAN & "%' And KAYITYAPAN = '" & prs & "'"
rs.Open isimlistele, AdoCN, 1, 3

 

[bluefalcon]

KAYITYAPAN alanının Char/VarChar olabilme ihtimali var. Aşağıdaki gibi deneyin.

Set rs = CreateObject("ADODB.recordset")
isimlistele = "SELECT * FROM [GELEN_KARGO_TAKIP] WHERE ALICIADISOYADI LIKE '%" & txtALAN & "%' And KAYITYAPAN = '" & prs & "'"
rs.Open isimlistele, AdoCN, 1, 3

Zeki Bey yanıtınız için teşekkür ederim. accdb dosyasında KAYITYAPAN alanı Byte boyutunda Number veri tipinde tanımlı. İlettiğiniz gibi belki sorun oradadır diyerek AND operatörünü de kaldırarak denedim ancak sonuç döndürmüyor.

Aşağıdaki tarih bazındaki satır sorunsuz çalışıyor ancak nedendir bilemiyorum LIKE operatörü ile "içerir" kriterini VBA da sorgulatamadım

rs.Open "SELECT * FROM [GELEN_KARGO_TAKIP] WHERE TARIH = " & tarih & " And KAYITYAPAN = " & prs, AdoCN, 1, 3

 

[bluefalcon]

Ne oldu nasıl oldu bilmiyorum ama aşağıdaki blok ile çözüme ulaştım. Destek olan yada aklından bir şekilde geçiren herkese çok teşekkür ediyorum.

tanimlanan = "SELECT * FROM [GELEN_KARGO_TAKIP] WHERE ALICIADISOYADI LIKE '%" & .txtALAN & "%' And KAYITYAPAN = " & prs
rs.Open tanimlanan, AdoCN, 1, 3

 

[ÖmerFaruk]

.txtALAN
Kırmızı Nokta