Benar kata mas nino Untuk text box HurufKapital(namatextbox) bisa dipasang di event on lost focus.
dan betul juga seharusnya ga pake code2an CAPSLOCK saja :D Regard's Heri Setyono ----- Original Message ----- From: Nino Guevara Ruwano To: [email protected] Sent: Thursday, February 12, 2009 9:59 AM Subject: Re: [belajar-access] Font Besar Untuk semua Textbox Ubah recordsource dari [namafield] menjadi: =HurufKapital([nama_field]) ----- Original Message ----- From: Teguh JAP To: [email protected] Sent: Thursday, February 12, 2009 9:28 AM Subject: Re: [belajar-access] Font Besar Untuk semua Textbox Mas Heri, thx sebelumnya.. Code yg dari heri saya copy ke modul, Cara mengaitkan ke formnya gmna ya ? thx 2009/2/11, Heri Setyono <[email protected]>: > Dear Mas Teguh JAP, > > Jika ada prosedur yang sama dan berulang saya mengunakan Function. > Hanya saja saya berbeda dengan Mas teguh untuk Huruf Kapital. > > ***********Start Code******************* > Function HurufKapital(hK) As String > Dim i As Integer > On Error GoTo lompat > tx = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" > > For i = 1 To Len(hK) > a = UCase(Mid(hK, i, 1)) > If InStr(1, tx, a) > 0 Then > ty = a > End If > Next > > HurufKapital= ty > Exit Function > lompat: > End Function > ************End Code************** > > Regard's > Heri Setyono > > ----- Original Message ----- > From: Teguh JAP > To: belajar-access > Sent: Wednesday, February 11, 2009 5:29 PM > Subject: [belajar-access] Font Besar Untuk semua Textbox > > > Dear...All > > Bagaimana supaya semua textbox yg ada di form ketika diketik menjadi > huruf KAPITAL semua ? > > Saya sudah coba pake ini : > > Select Case KeyAscii > Case 97 To 127: ' a..z > KeyAscii = KeyAscii - 32 ' a(97) -> A(65) > End Select > > Tapi kode itu untuk satu txtbox... > Kalo saya punya 20 txtbox berati harus mengcopy kode tsb sebanyak 20 X > kalo 50 txtbox, kebayang kan ...:(( > > Thx sebelumnya > > >
