tablodaki verilerin harf dönüşümü

[melisce]

MERHABA

bir problemim var..accees de daha evvel hazırladığım tablo büyük harf..benim tümünü yalnızca ilk harfini büyük yapıp değiştimem gerekiyor. 1. olarak excel için yalnızca ilk harfini büyük olması için visual kodlarını modüle yapıştırdım ama eklenti yapamadım bi türlü...2.yol olarak tablonun özelliklerindeki biçim için çeşitli semboller yazdım..

Her ikisini yapamadım..bişeyler eksik..bana bu konuda yardımcı olur musunuz?

 

[modalı]

Sayın melisce,

Bunun için aşağıdaki fonksiyonu kullanın.

Function Proper(X)
Dim Temp$, C$, OldC$, i As Integer
    If IsNull(X) Then
        Exit Function
    Else
        Temp$ = CStr(LCase(X))
        OldC$ = " "
        For i = 1 To Len(Temp$)
            C$ = Mid$(Temp$, i, 1)
            If C$ >= "a" And C$ <= "z" And _
                (OldC$ < "a" Or OldC$ > "z") Then
                    Mid$(Temp$, i, 1) = UCase$(C$)
            End If
            OldC$ = C$
        Next i
        Proper = Temp$
    End If
End Function

İyi çalışmalar

 

[karaayhan]

-----------benzer özellikte bir kod da benden------------------
Public Function ilkHarflerBüyük(cümle)
On Error GoTo hata
If Len(cümle) Then
Dim i As Byte
cümle = Trim(cümle)
cümle = rUcase(Left(cümle, 1)) & Mid(cümle, 2)
For i = 1 To Len(cümle)
If Mid(cümle, i, 1) = " " Then
cümle = Left(cümle, i) & rUcase(Mid(cümle, i + 1, 1)) & Mid(cümle, i + 2)
i = i + 1: If i > 255 Then Exit For
End If
Next
End If
exit_hata: ilkHarflerBüyük = cümle: Exit Function
hata: MsgBox Err.Description: Resume exit_hata
End Function

------------------------------Kod Bitişi-----------------------

 

[melisce]

arkadaşlar teşekkür ederim ama benim problemim kod değil ki ....benim problemim bunları accesste nasıl yerletireceğimi bilememek..

visual kodlarını modüle yapıştırıyorum sonrasını bilemiyorum...excelde microsoft excel eklentisi farklı kaydette var...ama accesste eklenti yapamıyorummm..visual kodlarını modüle yapıştırdıktan sonra yapmam gerekenleri aşamalı yazar mısınız?

 

[modalı]

Sayın melisce,

f(x) fonksiyonunun anlamı ne? Bir kuralın içine x sayısını yerleştir ve karşılık gelen sonucu yaz demek.

O zaman Proper(X) fonksiyonu nasıl çalışacak X yerine bir metin yollayacağız fonksiyona o da bize ilk harfleri büyük bir metne çevirecek. Access uygulamasının herhangi bir yerinde Proper(Değiştirmek istediğiniz metin) olarak kullanabilirsiniz.

Örnek kodda: Metin0=Proper(Metin0)
Sorguda deyim olarak: =Proper([SorguAlanı] vs gibi kullanabilirsiniz.

İyi çalışmalar

 

[melisce]

Modalı yarın işyerimdeki çalışmamda deneyeceğim...inşallah yaparım..çok teşekkür ederim...

 

[modalı]

Sayın melisce,

Ekteki uygulamadaki sorguyu inceleyin. İstediğiniz güncellemeyi yapıyor. Sorguyu sizin veritabanınıza adapte edin.

İyi çalışmalar

 

[melisce]

süpersiniz...teşekkürler Hocam...