AccessTr.neT

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

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.

Sayın mehmetdemiral;

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

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.

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

(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.