Excel İle Access' Sorgulama Yaparken Büyük/küçük Harf Sorunu - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Excel İle Access' Sorgulama Yaparken Büyük/küçük Harf Sorunu (/konu-excel-ile-access-sorgulama-yaparken-buyuk-kucuk-harf-sorunu.html) |
Excel İle Access' Sorgulama Yaparken Büyük/küçük Harf Sorunu - salvationkemal - 02/10/2019 Veri Tabanında "Metin" olarak kayıtlı bir isim "METİN" olarak sorgulandığında sonuç alınamıyor. Ayrıca Option Compare Text ifadesini de Makrolarımın bulunduğu Modül 1 içinde en üste eklediğim halde sorun çözülmedi. Tüm kodlar aşağıdaki gibidir. Kod:
Option Compare Text Cvp: Excel İle Access' Sorgulama Yaparken Büyük/küçük Harf Sorunu - salvationkemal - 02/10/2019 Yalnızca sorgulama Sub VeriAl () ise Sub Verial() Dim i As Integer, sorgu As String Call baglanti Range("a16:L65535").ClearContents Set rs = CreateObject("adodb.recordset") With Sheets("sayfa1") k1 = Range("C1") k2 = Range("C2") k3 = Range("C3") k4 = Range("C4") k5 = Range("C5") r1 = Range("C6") r2 = Range("C7") r3 = Range("C8") r4 = Range("C9") r5 = Range("C10") r6 = Range("G1") s = "select * from sil Where [YIL] AND [NO]" If .Range("C1").Text <> "" Then s = s & " and [YIL] like """ & k1 & """" If .Range("C2").Text <> "" Then s = s & " and [NO] like """ & k2 & """" If .Range("C3").Text <> "" Then s = s & " and [DOSYAES] like """ & k3 & """" If .Range("C4").Text <> "" Then s = s & " and [TARİH] like """ & k4 & """" If .Range("C5").Text <> "" Then s = s & " and [HESAPNO] like """ & k5 & """" If .Range("C6").Text <> "" Then s = s & " and [ACIKLAMA] like ""%" & r1 & "%""" If .Range("C7").Text <> "" Then s = s & " and [TLDÖVİZ] like """ & r2 & "%""" If .Range("C8").Text <> "" Then s = s & " and [VADE] like """ & r3 & """" If .Range("C9").Text <> "" Then s = s & " and [PARA] like """ & r4 & """" If .Range("C10").Text <> "" Then s = s & " and [DURUM] like ""%" & r5 & "%""" If .Range("G1").Text <> "" Then s = s & " and [OZET] like ""%" & r6 & "%""" s = s & " order by [YIL],[NO]" rs.Open s, con, 1, 1 Range("a16").CopyFromRecordset rs If WorksheetFunction.Count(Range("A16:A65000").Value) Then toplambulunan = WorksheetFunction.Count(Range("A16:A65000").Value) Range("Sayfa1!I4").Value = toplambulunan Exit Sub End If Range("A65000").End(xlUp).Offset(1, 0).Select End With End Sub Dosyayı ekledim. Cvp: Excel İle Access' Sorgulama Yaparken Büyük/küçük Harf Sorunu - salvationkemal - 02/10/2019 Bu arada kusura bakmayın günaydın. İyi çalışmalar. Cvp: Excel İle Access' Sorgulama Yaparken Büyük/küçük Harf Sorunu - berduş - 02/10/2019 program sorunsuz çalışıyor gibi geldi sorgula butonu, c6daki veriyi sil tablosundaki açıklama alanında arıyor değil mi? sil tablosunda içinde metin olan açıklama olmadığı için kayıt göstermiyordu ekledim buldu Cvp: Excel İle Access' Sorgulama Yaparken Büyük/küçük Harf Sorunu - salvationkemal - 02/10/2019 "METİN" olarak kaydedilmiş bir ismi "Metin" olarak sorguladığında bulmuyor. Kayıt yapılan ister "METİN" olsun ister "Metin" olsun sorgulama yapılırken büyük küçük harf duyarlılığı olmasın. Gönderdiğim ekte "METİN" olarak ismi tarattırdığımızda veri geliyor. Fakat "Metin" olarak gelmiyor. Kod:
Veri Tabanında "Metin" olarak kayıtlı bir isim "METİN" olarak sorgulandığında sonuç alınamıyor. Ayrıca Option Compare Text ifadesini de Makrolarımın bulunduğu Modül 1 içinde en üste eklediğim halde sorun çözülmedi. Doğrusu aşağıdaki gibi Veri Tabanında "METİN" olarak kayıtlı bir isim "Metin" olarak sorgulandığında sonuç alınamıyor. Ayrıca Option Compare Text ifadesini de Makrolarımın bulunduğu Modül 1 içinde en üste eklediğim halde sorun çözülmedi. Cvp: Excel İle Access' Sorgulama Yaparken Büyük/küçük Harf Sorunu - berduş - 02/10/2019 If .Range("C6").Text <> "" Then s = s & " and [ACIKLAMA] like ""%" & r1 & "%""" satırını aşağıdaki satırla değiştirip dener misiniz benzer bir sorun hem metin tabanlı diğer aramalarda hem de ı-I dönüşümünde de yaşandığı için Kod:
If .Range("C6").Text <> "" Then s = s & " and (instr(1,[ACIKLAMA], """ & r1 & """)>0 " & _ |