+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Kelimeyi Baş Harfi Büyük Yapma (/konu-kelimeyi-bas-harfi-buyuk-yapma.html)
RE: Kelimeyi Baş Harfi Büyük Yapma - mozuer - 18/08/2023
Bu kodu da kullanabilirsiniz...
Public Function TumuKucuk(ByVal kelime As String) As String
Dim myname As Integer, i As Integer
Dim harf As String
Dim eharf As Variant
myname = Len(kelime)
If myname <> 0 Then
harf = Mid(kelime, 1, 1)
If Asc(harf) = 73 Or Asc(harf) = 253 Then
TumuKucuk = TumuKucuk & "I"
ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
TumuKucuk = TumuKucuk & "İ"
ElseIf harf = "ç" Or harf = "Ç" Then
TumuKucuk = TumuKucuk & "Ç"
ElseIf harf = "ğ" Or harf = "Ğ" Then
TumuKucuk = TumuKucuk & "Ğ"
ElseIf harf = "ö" Or harf = "Ö" Then
TumuKucuk = TumuKucuk & "Ö"
ElseIf harf = "ş" Or harf = "Ş" Then
TumuKucuk = TumuKucuk & "Ş"
ElseIf harf = "ü" Or harf = "Ü" Then
TumuKucuk = TumuKucuk & "Ü"
Else
TumuKucuk = TumuKucuk & UCase(harf)
End If
For i = 2 To Len(kelime)
harf = Mid(kelime, i, 1)
If eharf = "." Or eharf = " " Or eharf = "-" Or eharf = "/" Then
If Asc(harf) = 73 Or Asc(harf) = 253 Then
TumuKucuk = TumuKucuk & "I"
ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
TumuKucuk = TumuKucuk & "İ"
ElseIf harf = "ç" Or harf = "Ç" Then
TumuKucuk = TumuKucuk & "Ç"
ElseIf harf = "ğ" Or harf = "Ğ" Then
TumuKucuk = TumuKucuk & "Ğ"
ElseIf harf = "ö" Or harf = "Ö" Then
TumuKucuk = TumuKucuk & "Ö"
ElseIf harf = "ş" Or harf = "Ş" Then
TumuKucuk = TumuKucuk & "Ş"
ElseIf harf = "ü" Or harf = "Ü" Then
TumuKucuk = TumuKucuk & "Ü"
Else
TumuKucuk = TumuKucuk & UCase(harf)
End If
Else
If Asc(harf) = 73 Or Asc(harf) = 253 Then
TumuKucuk = TumuKucuk & "ı"
ElseIf Asc(harf) = 221 Or Asc(harf) = 105 Then
TumuKucuk = TumuKucuk & "i"
ElseIf harf = "ç" Or harf = "Ç" Then
TumuKucuk = TumuKucuk & "ç"
ElseIf harf = "ğ" Or harf = "Ğ" Then
TumuKucuk = TumuKucuk & "ğ"
ElseIf harf = "ö" Or harf = "Ö" Then
TumuKucuk = TumuKucuk & "ö"
ElseIf harf = "ş" Or harf = "Ş" Then
TumuKucuk = TumuKucuk & "ş"
ElseIf harf = "ü" Or harf = "Ü" Then
TumuKucuk = TumuKucuk & "ü"
Else
TumuKucuk = TumuKucuk & LCase(harf)
End If
End If
eharf = harf
Next i
End If
End Function