Caps Lock Num Lock Scroll lock status

[wassimdaccache]

Hello


Does anyone know how can I get the status of Caps Lock; Num Loc;k Srcoll lock?


using access 2007.


Regards,

[ADezii]

Just subscribing, but I'm pretty sure that you will need the API for this. Will return later, hopefully with an answer.

[ADezii]

Be advised that I have the required code to check the Status of the Num Lock, Caps Lock, and Scroll Lock Keys. I don't have the time right now, but I'll post it this evening along with an explanation.

[ADezii]

Here is the code that will accurately check the Status of the Num Lock, Caps Lock, and Scroll Lock Keys. Oddly enough, there appears to be no Intrinsic Constant for the Scroll Lock, so I simply passed its KeyCode Value (145) As a Hexadecimal Value to the Function and it worked. Here goes, this is a 3-Step process:

1. Copy and Paste the following Declaration intoma Standard Code Module:
   

    'Code from "VBA Developer's Handbook" (Sybex, 1997):
   Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) _
   As Integer

2. Copy and Paste the following Functions into a Standard Code Module:
   

   Function GetCapslock() As Boolean
     'Return the CapsLock Value
     GetCapslock = CBool(GetKeyState(vbKeyCapital) And 1)
   End Function

   Function GetNumlock() As Boolean
     'Return the NumLock Value
     GetNumlock = CBool(GetKeyState(vbKeyNumlock) And 1)
   End Function

   Public Function GetScrollLock() As Boolean
     'Return the ScrollLock Value
     GetScrollLock = CBool(GetKeyState(&H91) And 1)
   End Function

3. Sample Function Call(s):
   

   If GetCapslock() Then
     MsgBox "Caps Lock is ON!"
   Else
     MsgBox "Caps Lock is OFF!"
   End If
   
   If GetNumlock() Then
     MsgBox "Num Lock is ON!"
   Else
     MsgBox "Num Lock is OFF!"
   End If
   
   If GetScrollLock() Then
     MsgBox "Scroll Lock is ON!"
   Else
     MsgBox "Scroll Lock is OFF!"
   End If

[wassimdaccache]

Here is the code that will accurately check the Status of the Num Lock, Caps Lock, and Scroll Lock Keys. Oddly enough, there appears to be no Intrinsic Constant for the Scroll Lock, so I simply passed its KeyCode Value (145) As a Hexadecimal Value to the Function and it worked. Here goes, this is a 3-Step process:

1. Copy and Paste the following Declaration intoma Standard Code Module:
   

    'Code from "VBA Developer's Handbook" (Sybex, 1997):
   Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) _
   As Integer

2. Copy and Paste the following Functions into a Standard Code Module:
   

   Function GetCapslock() As Boolean
     'Return the CapsLock Value
     GetCapslock = CBool(GetKeyState(vbKeyCapital) And 1)
   End Function

   Function GetNumlock() As Boolean
     'Return the NumLock Value
     GetNumlock = CBool(GetKeyState(vbKeyNumlock) And 1)
   End Function

   Public Function GetScrollLock() As Boolean
     'Return the ScrollLock Value
     GetScrollLock = CBool(GetKeyState(&H91) And 1)
   End Function

3. Sample Function Call(s):
   

   If GetCapslock() Then
     MsgBox "Caps Lock is ON!"
   Else
     MsgBox "Caps Lock is OFF!"
   End If
   
   If GetNumlock() Then
     MsgBox "Num Lock is ON!"
   Else
     MsgBox "Num Lock is OFF!"
   End If
   
   If GetScrollLock() Then
     MsgBox "Scroll Lock is ON!"
   Else
     MsgBox "Scroll Lock is OFF!"
   End If

Prefect code.

Appreciate your time .

regards

[ADezii]

Prefect code.

Appreciate your time .

regards

Glad it worked for you.