Problem with number lock
 

This is frustrating me beyond words....

I'm building an excel based tool around a number of userforms and the
problem is this:

The user enters is password into a textbox, hits enter... and then the
numberlock switches itself off... I don't get it, why is it doing this?

It's annoying because you have to keep reselecting number lock and this
makes the whole thing look very amateur... is there some code I can use to
turn it back on, or am I doing something stupid that's making it do it in the
first place?

I'm using excel 97,

Thanks, in anticpation...

Problem with number lock
 

Not tried in Excel 97

Declare Sub SetKeyboardState Lib "USER32" (lpKeystate As Any)
Declare Sub GetKeyboardState Lib "USER32" (lpKeystate As Any)


Function TurnNumLockOn()
Dim lpbKeyState(128) As Long
GetKeyboardState lpbKeyState(0)
lpbKeyState(72) = 1
SetKeyboardState lpbKeyState(0)
End Function


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Black1" wrote in message
...
This is frustrating me beyond words....

I'm building an excel based tool around a number of userforms and the
problem is this:

The user enters is password into a textbox, hits enter... and then the
numberlock switches itself off... I don't get it, why is it doing this?

It's annoying because you have to keep reselecting number lock and this
makes the whole thing look very amateur... is there some code I can use
to
turn it back on, or am I doing something stupid that's making it do it in
the
first place?

I'm using excel 97,

Thanks, in anticpation...

Problem with number lock
 

Bob....

Thanks for your (very) quick response.

Unfortunately..... I can't get it to work, I get run time error 453 "Can't
find DLL entry point in USER32"





"Bob Phillips" wrote:

Not tried in Excel 97

Declare Sub SetKeyboardState Lib "USER32" (lpKeystate As Any)
Declare Sub GetKeyboardState Lib "USER32" (lpKeystate As Any)


Function TurnNumLockOn()
Dim lpbKeyState(128) As Long
GetKeyboardState lpbKeyState(0)
lpbKeyState(72) = 1
SetKeyboardState lpbKeyState(0)
End Function


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Black1" wrote in message
...
This is frustrating me beyond words....

I'm building an excel based tool around a number of userforms and the
problem is this:

The user enters is password into a textbox, hits enter... and then the
numberlock switches itself off... I don't get it, why is it doing this?

It's annoying because you have to keep reselecting number lock and this
makes the whole thing look very amateur... is there some code I can use
to
turn it back on, or am I doing something stupid that's making it do it in
the
first place?

I'm using excel 97,

Thanks, in anticpation...

Problem with number lock
 

Okay, I've isolated the problem to the line

SendKeys ("{tab}")

Guess I'll take it out and find a work around.

Thanks anyway!

Problem with number lock
 

You are using Sendkeys? That might be your original problem. There is an MS
article on that at

http://support.microsoft.com/default.aspx?kbid=179987
BUG: Multiple SendKeys Statement Turns Off NumLock Key

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Black1" wrote in message
...
Okay, I've isolated the problem to the line

SendKeys ("{tab}")

Guess I'll take it out and find a work around.

Thanks anyway!

Problem with number lock
 

Thanks Bob.

"Bob Phillips" wrote:

You are using Sendkeys? That might be your original problem. There is an MS
article on that at

http://support.microsoft.com/default.aspx?kbid=179987
BUG: Multiple SendKeys Statement Turns Off NumLock Key

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Black1" wrote in message
...
Okay, I've isolated the problem to the line

SendKeys ("{tab}")

Guess I'll take it out and find a work around.

Thanks anyway!