vba - SendKeys 通过 Access 表单中的 VBA 代码弄乱了我的 NumLock 键

Question

我有以下 Access 表单代码。当我打开和关闭表单时，SendKeys 似乎通过打开和关闭它来干扰我的 NumLock 键。

由于我不想深入的完全正当的原因，我真的不想完全隐藏功能区(我希望仍然可以 Access 下拉菜单)，因此 DoCmd.ShowToolbar 命令这不是我喜欢的方式。

有人对如何修改下面的代码以使用 SendKeys 命令完成我想要的任务有任何建议吗？

使用Access 2007所以命令

CommandBars.ExecuteMso "MinimizeRibbon"

我无法使用。

顺便说一句，数据库将是分布式的，因此解决方案必须包含在数据库中。

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

这是 Microsoft VBA 中的一个错误。但有一个解决方法。

使用F8运行宏并找到将其关闭的位置。它通常位于 SendKeys 之后。

然后添加一个 在该行后发送Sendkeys "{NUMLOCK}", True 可反转效果。

如果找不到，就添加到最后，完成后会返回。希望如果您在显示/隐藏过程中添加它，它会起作用。