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
Büyük Harfe Çevirme
Rica ederiz.
Verdiğiniz alttaki koda gerek yok gibi ucase zaten büyük harfe çevirir birde onsuz deneyin.
Yani alttaki kodu silin.
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
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
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
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.
Konuyu Okuyanlar: 1 Ziyaretçi