在Access中管理加载项功能区[关闭]

Question

我正在做一个项目，它基于以前的Access项目。

我需要使用的数据库只能通过“加载项”选项卡访问，我可以在其中找到访问数据库的不同按钮和工具。 出于某种原因，我不能将表复制/粘贴或导出到txt或excel电子表格，所以我试图找到一种方法来管理加载项并直接访问表。

我在导航栏中找不到该表（All Access Objects），所以我想这是我找到所述表的唯一方法。 如何访问加载项选项卡中定义的表或查询？

转到文件 - >选项 - >加载项向我显示没有安装加载项

Answer 1

在“加载项”选项卡中，您会看到旧的自定义菜单，它们是CommandBar对象。

它们没有表格，以下功能列出了所有自定义菜单，应该让您入门。 输出位于立即窗口（Ctrl + G）。

Public Function ListCustomCommandBars()

    Dim cbarMenu As CommandBar
    Dim Oberpunkt As CommandBarControl
    Dim Unterpunkt As CommandBarControl

    ' ignore errors, e.g. menu items having no .OnAction property
    On Error Resume Next

    For Each cbarMenu In CommandBars
        If Not cbarMenu.BuiltIn Then
            Debug.Print vbCrLf & "=== " & cbarMenu.Name & " ===" & vbCrLf
            For Each Oberpunkt In cbarMenu.Controls
                Debug.Print Oberpunkt.Index & " " & IIf(Not Oberpunkt.Visible, "(--) ", "") & Oberpunkt.Caption
                For Each Unterpunkt In Oberpunkt.Controls
                    Debug.Print , Unterpunkt.Index & " " & IIf(Not Unterpunkt.Visible, "(--) ", "") & Unterpunkt.OnAction, Unterpunkt.Caption
                Next
            Next
        End If
    Next

End Function

最有趣的部分是.OnAction - 它显示了菜单项的功能。