Tengkyu buat mas Sudarsono dan Mas Tio atas bantuannya, ini juga jalan cuma saya lebih pakai yang dari mas Ahmad Qomarudin
simple banget.
Regards
Hendra
From: Sudarsono Suhenk <jkssbma@live.com>
To: belajar-access yahoo.com <belajar-access@yahoogroups.com>
Sent: Wednesday, July 13, 2011 7:44 PM
Subject: 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)
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
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar