Büyük Harfe Çevirme

Sn.Feraz Hocam

-Olay
-Güncelleştirme Sonrası
-Olay Yardımı Bölümüne

__________________________________________________________________________________________

Option Compare Database

Private Sub Adı_Soyadı_AfterUpdate()

Adı_Soyadı = StrConv(Adı_Soyadı, vbUpperCase)
Adı_Soyadı = UCase(Replace(Replace(Adı_Soyadı, "ı", "I"), "i", "İ"))

End Sub

____________________________________________________________________________________________

Kodu Ekledim Dediğiniz Gibi Oldu

Elinize Emeğinize Sağlık Çok Teşekkür Ederim Size ve Tüm Hocalarıma

Rica ederiz.
Verdiğiniz alttaki koda gerek yok gibi ucase zaten büyük harfe çevirir birde onsuz deneyin.
Yani alttaki kodu silin.

Adı_Soyadı = StrConv(Adı_Soyadı, vbUpperCase)

Sn. Feraz Hocam

Adı_Soyadı = StrConv(Adı_Soyadı, vbUpperCase)
Dediğiniz Gibi Denemiştim Oldu Fakat

(i) harfini (ı) olarak yazmıştı Daha Sonra Altına Alttaki Kodu da Ekleyince

Adı_Soyadı = UCase(Replace(Replace(Adı_Soyadı, "ı", "I"), "i", "İ"))

eklediğimde (i) harflerini düzgün olarak yazdı

Teşekkür Ederim Sağolun

Sadece alttaki gibi yapınca olmuyıçor mu?
Bunu demek istemiştim önceki mesajımda.

Private Sub Adı_Soyadı_AfterUpdate()

Adı_Soyadı = UCase(Replace(Replace(Adı_Soyadı, "ı", "I"), "i", "İ"))

End Sub

Sn.Feraz Hocam

Kusura Bakmayın Ben Yanlış Anlamışım Evet


-Olay
-Güncelleştirme Sonrası
-Olay Yardımı Bölümüne

__________________________________________________________________________________________

Option Compare Database

Private Sub Adı_Soyadı_AfterUpdate()

Adı_Soyadı = UCase(Replace(Replace(Adı_Soyadı, "ı", "I"), "i", "İ"))

End Sub

____________________________________________________________________________________________

Kodu Ekledim Dediğiniz Gibi Oldu

Çok Teşekkür Ederim Sağolun

Rica ederim kolay gelsin.