Force Caplock

[mattc66 via AccessMonster.com]

Hi All,

Is there a way to force CAPLOCK on an entire form and have it store the data
as well without having to set it on each and every control?

 

[Guest]

Yes,

First, download the code from this site:

http://www.mvps.org/access/api/api0046.htm

Then you can use this code to turn them on if they are off, but they will
not toggle if they are already on

Public Sub DoTheKeys()
Dim blnAreLocksOn As Boolean

blnAreLocksOn = IsCapsLockOn
If blnAreLocksOn = False Then
Call ToggleCapsLock
End If
End Sub