AccessTr.neT
Büyük Yazının Baş Harfleri Büyük Gerisi Küçük - Baskı Önizleme

+- 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ığı: Büyük Yazının Baş Harfleri Büyük Gerisi Küçük (/konu-buyuk-yazinin-bas-harfleri-buyuk-gerisi-kucuk.html)

Büyük Yazının Baş Harfleri Büyük Gerisi Küçük - hnakis - 07/06/2023

Sayın Nurullah_Serdar'ın örnek bir çalışmada yazdığı kod aşağıdaki gibidir. ( Kendisine çok Teşekkür ederim)

kod metin kutusuna büyük harflarle yazılan metnin baş harfleri büyük geri kalan harfleri küçük yapıyor.
metin kutusuna büyük harfle yazılmadığı zaman hata veriyor.

ben bu kodu metin kutusuna küçük harfle yazıldığında baş harflerin büyük geriye kalan harflerin küçük kalmasını sağlayamadım.

kodda değişiklikler yaptım ama beceremedim.

bir fikri yada önerisi olan varmı acaba.

saygılar.



Function cevir(bb As String)


Dim bharf As String
Dim kharf As String
Dim tt As String
Dim uz As Integer
Dim boslukyeri As Integer
Dim harf As String
Dim harf1 As String
Dim hsira As Integer

bharf = "ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZWX."
kharf = "abcçdefgğhıijklmnoöprsştuüvyzwx."

tt = ""

For uz = 1 To Len(bb)
If Mid(bb, uz, 1) = " " Then
harf = " "
boslukyeri = uz
Else
harf1 = Mid(bb, uz, 1)
If uz = 1 Then
harf = harf1
Else
If uz = boslukyeri + 1 Then
harf = harf1
Else
hsira = InStr(1, bharf, harf1)
harf = Mid(kharf, hsira, 1)
End If
End If
End If

tt = tt + harf
Next uz

cevir = tt


End Function

Re: Büyük Yazının Baş Harfleri Büyük Gerisi Küçük - mehmetdemiral - 07/06/2023

Arşivimde bununla ilgili bir örnek var. Kodlarını yazıyorum. Bu fonksiyonu kodların arasına yapıştırın. 

Function IlkHarfBuyut(metin As String) As String

    metin = Replace(metin, "A", "a", , , vbBinaryCompare)

    metin = Replace(metin, "B", "b", , , vbBinaryCompare)

    metin = Replace(metin, "C", "c", , , vbBinaryCompare)

    metin = Replace(metin, "Ç", "ç", , , vbBinaryCompare)

    metin = Replace(metin, "D", "d", , , vbBinaryCompare)

    metin = Replace(metin, "E", "e", , , vbBinaryCompare)

    metin = Replace(metin, "F", "f", , , vbBinaryCompare)

    metin = Replace(metin, "G", "g", , , vbBinaryCompare)

    metin = Replace(metin, "Ğ", "ğ", , , vbBinaryCompare)

    metin = Replace(metin, "H", "h", , , vbBinaryCompare)

    metin = Replace(metin, "I", "ı", , , vbBinaryCompare)

    metin = Replace(metin, "İ", "i", , , vbBinaryCompare)

    metin = Replace(metin, "J", "j", , , vbBinaryCompare)

    metin = Replace(metin, "K", "k", , , vbBinaryCompare)

    metin = Replace(metin, "L", "l", , , vbBinaryCompare)

    metin = Replace(metin, "M", "m", , , vbBinaryCompare)

    metin = Replace(metin, "N", "n", , , vbBinaryCompare)

    metin = Replace(metin, "O", "o", , , vbBinaryCompare)

    metin = Replace(metin, "Ö", "ö", , , vbBinaryCompare)

    metin = Replace(metin, "P", "p", , , vbBinaryCompare)

    metin = Replace(metin, "Q", "q", , , vbBinaryCompare)

    metin = Replace(metin, "R", "r", , , vbBinaryCompare)

    metin = Replace(metin, "S", "s", , , vbBinaryCompare)

    metin = Replace(metin, "Ş", "ş", , , vbBinaryCompare)

    metin = Replace(metin, "T", "t", , , vbBinaryCompare)

    metin = Replace(metin, "U", "u", , , vbBinaryCompare)

    metin = Replace(metin, "Ü", "ü", , , vbBinaryCompare)

    metin = Replace(metin, "V", "v", , , vbBinaryCompare)

    metin = Replace(metin, "X", "x", , , vbBinaryCompare)

    metin = Replace(metin, "Y", "y", , , vbBinaryCompare)

    metin = Replace(metin, "Z", "z", , , vbBinaryCompare)



    metin = Replace(metin, " a", " A")

    metin = Replace(metin, " b", " B")

    metin = Replace(metin, " c", " C")

    metin = Replace(metin, " ç", " Ç")

    metin = Replace(metin, " d", " D")

    metin = Replace(metin, " e", " E")

    metin = Replace(metin, " f", " F")

    metin = Replace(metin, " g", " G")

    metin = Replace(metin, " ğ", " Ğ")

    metin = Replace(metin, " h", " H")

    metin = Replace(metin, " ı", " I")

    metin = Replace(metin, " i", " İ")

    metin = Replace(metin, " j", " J")

    metin = Replace(metin, " k", " K")

    metin = Replace(metin, " l", " L")

    metin = Replace(metin, " m", " M")

    metin = Replace(metin, " n", " N")

    metin = Replace(metin, " o", " O")

    metin = Replace(metin, " ö", " Ö")

    metin = Replace(metin, " p", " P")

    metin = Replace(metin, " q", " Q")

    metin = Replace(metin, " r", " R")

    metin = Replace(metin, " s", " S")

    metin = Replace(metin, " ş", " Ş")

    metin = Replace(metin, " t", " T")

    metin = Replace(metin, " u", " U")

    metin = Replace(metin, " ü", " Ü")

    metin = Replace(metin, " v", " V")

    metin = Replace(metin, " x", " X")

    metin = Replace(metin, " y", " Y")

    metin = Replace(metin, " z", " Z")

    

    If Left(metin, 1) = "i" Then metin = "İ" & Mid(metin, 2): GoTo Cik

    If Left(metin, 1) = "ı" Then metin = "I" & Mid(metin, 2): GoTo Cik

    If Left(metin, 1) = "ş" Then metin = "Ş" & Mid(metin, 2): GoTo Cik

    If Left(metin, 1) = "ğ" Then metin = "Ğ" & Mid(metin, 2): GoTo Cik

    If Left(metin, 1) = "ü" Then metin = "Ü" & Mid(metin, 2): GoTo Cik

    If Left(metin, 1) = "ö" Then metin = "Ö" & Mid(metin, 2): GoTo Cik

    If Left(metin, 1) = "ç" Then metin = "Ç" & Mid(metin, 2): GoTo Cik

    

    metin = UCase(Mid(metin, 1, 1)) & Mid(metin, 2)

Cik:

    IlkHarfBuyut = metin

End Function


Sonra da bir metin kutusunun afterupdate yordamına şu kodu yapıştırın

Private Sub AdSoyad_AfterUpdate()

Me.AdSoyad = IlkHarfBuyut(Me.AdSoyad)

End Sub

Tabii bu metin kutusunun adının AdSoyad olduğunu varsayıyorum. Değilse ya da başka başka kutularda kodu kullanacaksanız uygun şekilde ismini düzeltirsiniz.

RE: Büyük Yazının Baş Harfleri Büyük Gerisi Küçük - hnakis - 07/06/2023

Sayın mehmetdemiral;

Bu fonksiyonu kodların arasına yapıştırını anlayamadım. Benim yazdığım kodun arasına mi?

RE: Büyük Yazının Baş Harfleri Büyük Gerisi Küçük - mehmetdemiral - 07/06/2023

Evet. Yani bu bir fonksiyon olduğu için kod olarak bir yere yerleştirmek mümkün olmaz. Hep kodları olaylara yazıyoruz ya, bu kodu öyle yapamayız. Bunu bir yere atıyoruz sonra da onu çağırınca çalışmış oluyor. O yüzden buna fonksiyon dedim ya. KOdların başında da fonksiyon yazıyor zaten.
Ben size örnek yolluyorum. Daha iyi anlayacaksınız.

RE: Büyük Yazının Baş Harfleri Büyük Gerisi Küçük - hnakis - 07/06/2023

Onu biliyorum hocam. Kod arasına deyince ben başka bir şeymi acaba dedim. Bilgisayar başına oturunca bakicam ve size durumla ilgili geri bildirimde bulunacağım.
Saygılar

RE: Büyük Yazının Baş Harfleri Büyük Gerisi Küçük - hnakis - 08/06/2023

(07/06/2023, 18:13)mehmetdemiral yazdı: Evet. Yani bu bir fonksiyon olduğu için kod olarak bir yere yerleştirmek mümkün olmaz. Hep kodları olaylara yazıyoruz ya, bu kodu öyle yapamayız. Bunu bir yere atıyoruz sonra da onu çağırınca çalışmış oluyor. O yüzden buna fonksiyon dedim ya. KOdların başında da fonksiyon yazıyor zaten.
Ben size örnek yolluyorum. Daha iyi anlayacaksınız.

Sayın mehmetdemiral;

çok teşekkürler. elinize sağlık. yapmak istediğim buydu.

diğer kodu da çözmek için daha çok inceliyeceğim.