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
