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...

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" <[email protected]> wrote in message
news:[email protected]...
> 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...

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" <[email protected]> wrote in message
> news:[email protected]...
> > 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...
>
>
>

Okay, I've isolated the problem to the line

SendKeys ("{tab}")

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

Thanks anyway!

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" <[email protected]> wrote in message
news:[email protected]...
> Okay, I've isolated the problem to the line
>
> SendKeys ("{tab}")
>
> Guess I'll take it out and find a work around.
>
> Thanks anyway!

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" <[email protected]> wrote in message
> news:[email protected]...
> > Okay, I've isolated the problem to the line
> >
> > SendKeys ("{tab}")
> >
> > Guess I'll take it out and find a work around.
> >
> > Thanks anyway!
>
>
>