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]