Skip to main content

AccessTr.neT


Cümlenin ilk harfini büyük yapmak

Serkan Keleş
Serkan Keleş
10
2324

Cümlenin ilk harfini büyük yapmak

#1
Merhaba arkadaşlar. Siteye yeni üye oldum. Konu açmadan sorunumu çözmeye çalıştım mamafih yapamadım. İşyerinde kullandığımız depo takip programında bir kaç iyileştirme yaptım ama yazdığım cümlenin sadece ilk harfini büyük yapmayı başaramadım. Bir de sıra numarası girmem gereken kısma yalnızca rakam girilebilmesini istiyorum. Bunu da giriş maskesi yoluyla halletmek istedim onu da yapamadım. Sadece "ilk harf" için yüklediğim ama sonradan girdiğim bütün kelimelerin ilk harfini büyüttüğünü farkettiğim kod şu şekildeydi. 

Private Sub Alan_İsmi_AfterUpdate()
Alan_İsmi = StrConv([Alan İsmi], 3)
End Sub
   
Bu da başka bir siteden bulduğum ama bendeki access uygulamasının "Açıklamalar" kutucuğuna eklemek için nasıl bir düzenleme yapmam gerektiğini bilemediğim başka bir kod. 

Alıntı:

[kod=asp]<%
Function AdDuz(Ad)
Dim AdUz,Sagdan,Soldan
AdUz = Len(Ad)
Sagdan = Right(Ad,AdUz-1)
Soldan = Left(Ad,1)
Ad = S_UCase(Soldan) & S_LCase(Sagdan)
AdDuz = Ad
End Function

Function Adi(Duzenle)
Session.CodePage = 1254
Dim Isim
Isim = Split(Duzenle," ")
Ad1 = ""
For i = 0 To UBound(Isim)
Ad1 = Ad1 & AdDuz(Isim(i)) &" "
Next
Duzenle = Trim(Ad1)
Adi = Duzenle
End Function

Function S_LCase(sGelen)
If Not Len(sGelen) > 0 Then Exit Function
sGelen = Replace(sGelen,"İ","i")
sGelen = Replace(sGelen,"I","i")
S_LCase = LCase(sGelen)
End Function

Function S_UCase(sGelen)
If Not Len(sGelen) > 0 Then Exit Function
sGelen = Replace(sGelen,"i","İ")
sGelen = Replace(sGelen,"ı","I")
S_UCase = UCase(sGelen)
End Function

Response.Write Adi("iii ööö ççç ğğğ üüü ııı şşş")
%>[/kod]
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cümlenin ilk harfini büyük yapmak - Yazar: Serkan Keleş - 20/01/2017, 10:50