+- 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ığı: Sql Bağlı tabloda türkçe "iİıI" problemi (/konu-sql-bagli-tabloda-turkce-iiii-problemi.html)
RE: Sql Bağlı tabloda türkçe "iİıI" problemi - alicimri - 14/04/2020
Sayenizde "sqlite" diye bir şey olduğunu öğrendim.
RE: Sql Bağlı tabloda türkçe "iİıI" problemi - accessman - 14/04/2020
sqlite tercih etmemin sebebi android ile uyumlu olması
RE: Sql Bağlı tabloda türkçe "iİıI" problemi - accessman - 14/04/2020
Benim açımdan ilginç şeyler oluyor veya yıllar sonra bilmediğim ama bildiğimi zannettiğim yeni şeyler öğreniyorum
Kod:
Public Function turkcem(Metin As String) As String
Metin = Replace(Metin, "ı", "ı")
Metin = Replace(Metin, "I", "ı")
Metin = Replace(Metin, "i", "i")
Metin = Replace(Metin, "İ", "i")
turkcem = Metin
End Functionama maalesef "ı" olarak çıkıyor yani
izmirin "i" si küçük harf olarak giriyor
ıspartanın "ı" sı küçük harf olarak çıkıyor
neden olabilir
Re: Sql Bağlı Tabloda Türkçe "iiıı" Problemi - accessman - 14/04/2020
nasıl oldu bilmiyorum ama şimdi olması gerektiği gibi çalışıyor
sıkıntı çözülmüş oldu
Kod:
Public Function turkcem(Metin As String) As String
Dim result As String
result = ""
For i = 1 To Len(Metin)
If (Asc(Mid(Metin, i, 1)) = Asc("İ")) Then
result = result & "i"
ElseIf (Asc(Mid(Metin, i, 1)) = Asc("I")) Then
result = result & "ı"
ElseIf (Asc(Mid(Metin, i, 1)) = Asc("i")) Then
result = result & "i"
ElseIf (Asc(Mid(Metin, i, 1)) = Asc("ı")) Then
result = result & "ı"
Else
result = result & Mid(Metin, i, 1)
End If
Next
turkcem = result
End Functionsn. @alicimri @berduş @feraz
yardımlarınız için teşekkür ederim arkadaşlar