AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Sql Bağlı tabloda türkçe "iİıI" problemi

1 2 3 4
14/04/2020, 08:09

alicimri

Sayenizde "sqlite" diye bir şey olduğunu öğrendim. 
14/04/2020, 08:53

accessman

sqlite tercih etmemin sebebi android ile uyumlu olması
14/04/2020, 09:29

accessman

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 Function
bu fonksiyonda "i" girdiğinde  "i" olarak çıkması gerekiyor değil mi
ama maalesef "ı" olarak çıkıyor yani 
izmirin "i" si küçük harf olarak giriyor
ıspartanın "ı" sı küçük harf olarak çıkıyor
neden olabilir
14/04/2020, 11:12

accessman

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 Function




sn. @alicimri   @berduş  @feraz
yardımlarınız için teşekkür ederim arkadaşlar
1 2 3 4