SendKeys and NumLock problem...

[leanpilar]

As maybe you know after some code with SendKeys your NumLock will be disabled...
I try this function

Public Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
Function numlockcheck()
numlockcheck = GetKeyState(vbKeyNumlock)
End Function

and this code at the end of the sendkeys code, at the end of current event and on code of the common used button after the problem:

If numlockcheck() = 0 Then
SendKeys "{NUMLOCK}", True
End If

but a lot of times if fail... :/
any help?
PS: I'm working how to avoid use of SendKeys but 3 lvl of navicationform on a subform is not that simple...

 

[sneuberg]

PS: I'm working how to avoid use of SendKeys but 3 lvl of navicationform on a subform is not that simple...

What are you trying to do at third level of the navigation form subforms. Maybe one of us has been there and knows a non sendkeys fix.

 

[leanpilar]

What are you trying to do at third level of the navigation form subforms. Maybe one of us has been there and knows a non sendkeys fix.

solv this thread and I'll be happy