Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
20/07/2009 11:04
Konu Sahibi
alperadn01
Yorumlar
1
Okunma
1630
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

alperadn01

Aktif Üye
Kullanici Avatari
Aktif Üye
114
23/11/2008
0
-
Ofis 2003
30/08/2017,18:47
Çözüldü 
arkadaşlar aşağıda gönderdiğim kelimenin ilk harfini büyük yapmakta hata ile karşılaşıyorum.
1.hata: caps lock tuşu açıkken İ harfi büyük olarak kalıyor küçük i harfine dönmüyor.
2.bir kişinin adresini yazarken bilindiği gibi kısaltmalar yapılmaktadır.örneğin Yunus Emre Mah.İstiklal Cad.No:16 gibi adreste nokta(.) işaretinden sonraki harfi de küçük yapıyor.Noktadan sonraki kelimenin ilk harfini büyük diğerlerini küçük yaptırmak istiyorum.
kod:
Private Sub İKAMETİ_AfterUpdate()
İKAMETİ = StrConv(İKAMETİ, vbProperCase)
ilk = Target
ilk= Replace(ilk, " ", " ")
ilk = Replace(ilk, " ", " ")
ilk = Replace(ilk, "I", "ı")
ilk = Replace(ilk, "İ", "i")
ilk = Replace(ilk, ".", ". ")
Target = StrConv(ilk, vbProperCase)
End Sub

bu kod üzerinden yardımcı olurmusunuz. şimdiden bütün arkadaşlara teşekkür ederim.


Cevapla

C*e*l*o*y*c*e

Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.993
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Çözüldü 
güncelleştirme sonrasında olayına
Me.[İKAMETİ] = StrConv([İKAMETİ], 3) ...şeklinde
yada şu fonksiyonu BİR DENERMİSİNİZ...

Public Function MB(ByVal b As String) As String
MB = StrConv(b, vbUpperCase)
MB= Replace(MB, "i", "İ")
MB = Replace(MB, "ı", "I")
End Function


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Takvimde İlk Günü Pazartesi Yapma metin02 4 52 Dün, 22:40 metin02
Çözüldü Dlookup Kodu Hatası accessdelisi 3 136 14/10/2017, 07:52 accessdelisi
Çözüldü Windows 10'da Access Kısayol İkonu Hatası serkan1985 2 124 06/10/2017, 19:42 serkan1985
Çözüldü Like Kullanımı Hakkında ALike Hatası anno 11 302 05/10/2017, 14:38 anno
Çözüldü Değer Hatası Hk. serkan1985 4 110 02/10/2017, 23:39 serkan1985

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.