Data entry in Upper Case

How can I enable Caps Lock after the form or database opens?

Matuag <matuag@gmail.comwrote in news:1180201473.589368.190580
@g37g2000prf.googlegroups.com:
You need to set an input mask that sets uppercase on each text
control where uppercase is required. See the help files.



--
Bob Quintal

PA is y I've altered my email address.

--
Posted via a free Usenet account from http://www.teranews.com

Set the form's (you are using a form for data entry, right) control(s)
Format property to ">". There is also an Upper() function to convert all
text strings to caps. Do you really want all entry in upper case? That
tends to be hard to read. Remember, you can format text to Upper, Lower,
Proper, etc. for display on screen or printed reports, regardless of the
actual entry values.
-Ed

"Matuag" <matuag@gmail.comwrote in message
news:1180201473.589368.190580@g37g2000prf.googlegr oups.com...

In a new standard module place this code:

'**************** Code Start ************************
'Windows API/Global Declarations for :CapLock
'************************************************* ******
Public Const VK_CAPLOCK = &H14

Public Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Public kbArray As KeyboardBytes

Public Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Long
Public Declare Function GetKeyboardState Lib "user32" _
(kbArray As KeyboardBytes) As Long
Public Declare Function SetKeyboardState Lib "user32" _
(kbArray As KeyboardBytes) As Long
'************** Code End ****************

When prompted name the module ControlCapsLock


In the On_Load sub of the first form in your db that is used place this code:

'********** Code Start ****************
'Turn Capslock On
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPLOCK) = 1
SetKeyboardState kbArray
'********** Code End *****************


In the last form before closing your db, place this code in the Form_Unload
event:

'************ Code Start *****************
'Turn Capslock OFF
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPLOCK) = 0
SetKeyboardState kbArray
'*********** Code End ********************

Good Luck!

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000

Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200705/1

On May 27, 7:43 am, "missinglinq via AccessMonster.com" <u28780@uwe>
wrote:Thanks

Glad to help!

--
There's ALWAYS more than one way to skin a cat!

Answers/posts based on Access 2000

Message posted via http://www.accessmonster.com