number lock turns off intermittently

ciao jw57fd,

here :

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

you can find a solution which avoids sendkeys involving also capsLock and crollLock.

HTH,

ciao, Sandro.

ps. remember to apply API manipulation to allow it works with Office 64 bit if needed.

hello Ken,

I added this to my event procedure right at the beginning

Option Compare Database
Option Explicit

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_NUMLOCK = &H90 (this is red and I know that's not good)

_______________________________________________________________________________________________________

Public Sub TurnOnNumLock()

    If GetKeyState(VK_NUMLOCK) <> 1 Then
        SendKeys "{Numlock}", True
    End If

End Sub

    TurnOnNumLock

and when I close the editor I get an error message :

the expression On Current you entered as the event property setting produced the following error: Constants, fixed-length strings, arrays, user-defined types and Declared statements not allowed as Public members of object modules.

I don't know what that means but I assume I have this expression in the wrong place. I just don't know where to put it.

thanks

The statement 

    TurnOnNumlock

Must be inside a procedure in order to work. That is,

Function yourFunction() as Boolean

   Your code

    TurnOnNumlock

End Function

hello ken,

 I mad a module and names it mdlNumLockStuff. Here is the module:

Option Compare Database

Option Explicit

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Const VK_NUMLOCK = &H90

Public Sub TurnOnNumLock()

    If GetKeyState(VK_NUMLOCK) <> 1 Then
        SendKeys "{Numlock}", True
    End If

End Sub

In the On Load event procedure I have:

Private Sub Form_Load()
DoCmd.GoToRecord acDataForm, "frmInput", acNewRec
Me.OpenDate.SetFocus
TurnOnNumLock
End Sub

but I still have the numlock turned off about half the time.

As always thanks for your help

....................but I still have the numlock turned off about half the time.

I'm afraid that I can't offer any explanation for that.

thanks for the reply.

What do you mean by a *proper* line?

I don't even remember what I had to start with but the numlock  on was hit or miss. Then I did a google search and found that this is an access issue and the sendkey line was the solution. It wasn't, and with a little more searching ( well a lot more) I found the send key wasn't the answer and it causes more problems. So here I am.

thanks for the help