RE: [belajar-access] Huruf besar pada awal kata (Proper)

 

Function properku(ByVal str_1 As String) As String
    Dim hasil As String
    Dim ar_ku() As String
    Dim JUMKATA, i As Integer
   
    hasil = ""
    ar_ku = Split(str_1, " ")
    JUMKATA = UBound(ar_ku)
    For i = 0 To JUMKATA
        hasil = hasil & " " & UCase(Left(ar_ku(i), 1)) & LCase(Mid(ar_ku(i), 2))
    Next i
    properku = hasil
End Function

silakan di uji coba ya..... 

---

To: belajar-access@yahoogroups.com
From: the_agestha@yahoo.com
Date: Wed, 13 Jul 2011 04:03:13 -0700
Subject: [belajar-access] Huruf besar pada awal kata (Proper)

 

Dear Warga Milis,...

Bagaimana caranya agar data yang tersimpan pada tabel (type text) dapat otomatis huruf besar semua pada awal katanya

seperti fungsi Proper pada excel.

Regards

Hendra

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (6)

Recent Activity:

• New Members 10

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___