AccessTr.neT
Büyük Harfe Çevirme - 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 Harfe Çevirme (/konu-buyuk-harfe-cevirme.html)

Sayfalar: 1 2 3 4


RE: Büyük Harfe Çevirme - golf2000 - 30/05/2020

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


RE: Büyük Harfe Çevirme - feraz - 30/05/2020

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)



RE: Büyük Harfe Çevirme - golf2000 - 30/05/2020

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


RE: Büyük Harfe Çevirme - feraz - 30/05/2020

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


RE: Büyük Harfe Çevirme - golf2000 - 30/05/2020

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


RE: Büyük Harfe Çevirme - feraz - 30/05/2020

Rica ederim kolay gelsin.