SendKeys is messing with my NumLock key via VBA code in Access form

Question

I have the following code for an Access form. It appears as if the SendKeys is messing with my NumLock key by toggling it on and off as I open and close the form.

For perfectly valid reasons which I don't want to get into, I really do not want to completely hide the ribbon (I want the pull down menus still accessible) so the DoCmd.ShowToolbar command is not my preferred way of doing it.

Does anyone have any suggestions as to how I can modify the code below to accomplish what I want using the SendKeys command?

Using Access 2007 so the command

CommandBars.ExecuteMso "MinimizeRibbon" 

is not available to me.

By the way, database will be distributed so solution must be contained within database.

Private Sub Form_Close()  ' Unhide navigation pane     DoCmd.NavigateTo "acNavigationCategoryObjectType"     DoCmd.Maximize  ' Maximize the ribbon RibbonState = (CommandBars("Ribbon").Controls(1).Height < 75)  Select Case RibbonState     Case True         SendKeys "^{F1}", True     Case False         'Do nothing, already maximized End Select End Sub  Private Sub Form_Load() ' Hide navigation pane     DoCmd.NavigateTo "acNavigationCategoryObjectType"     DoCmd.Minimize Debug.Print Application.CommandBars.Item("Ribbon").Height ' Minimize ribbon RibbonState = (CommandBars("Ribbon").Controls(1).Height < 100)  Select Case RibbonState     Case True         'Do nothing, already minimized     Case False             SendKeys "^{F1}", False End Select End Sub 

Answer 1

It's a bug in Microsoft VBA. But there is a workaround.

Use F8 to run through the macro and find where it turns it off. It's usually after a SendKeys.

Then add an Sendkeys "{NUMLOCK}", True after the line to reverse the effect.

If you can't find it, just add it at the end and when it finishes, it will go back. Hopefully, if you add it during the show/hide process, it will work.

Answer 2

This is caused by :

Sendkeys "any key", False 

Instead of False as second parameter, use True.