在设计模式下显示自定义功能区(轮班打开)- access 2013

Show custom ribbon in design mode (shift open) - access 2013

最近我为我的 access 2013 数据库创建了一个自定义功能区。在我旧的 access 2000 数据库中,我总是可以看到自定义工具栏,即使我用 shift 打开数据库(设计器模式 - 所以我可以看到表格等)。

然而,在 access 2013 中,当我使用 shift enter 打开它时,我看不到我自定义创建的功能区(我只能在功能区中看到文件、创建、外部数据和帮助工具),是否可以看到设计器模式下的自定义功能区(移位打开)?

这里有一些额外的信息: 功能区内置于 XML:

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnMainRibbonLoad" >
    <ribbon startFromScratch="true">
        <tabs>
            <tab id="tabBogus" label="Bogus" visible="false">

                <group id="oPrint" label="Print- en pagina instellingen" >    
                    <button idMso="PrintDialogAccess" size="large" label="Afdrukken" imageMso="PrintDialogAccess" getEnabled="MyEnabled" />
                    <button idMso="PageSetupDialog" size="large" label="Pagina instellingen" getEnabled="MyEnabled"  />
                    <control idMso="FilePrintPreview" label="Print Preview" getEnabled="MyEnabled"/>
                    <button id="PrintKies" label="Standaard printer" screentip="Standaard printer" supertip="Stel de standaard printer in." imageMso="FilePrintQuick" onAction="ribbonOpenForm" getEnabled="MyEnabled" tag="PrinterKiezen"/>
                </group>
</tab>

加载色带的代码如下:

Private m_ribbon As IRibbonUI

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub OnMainRibbonLoad(OPSRibbon As IRibbonUI)
  'handles the OnLoad callback of the customUI element
  'and saves the IRibbonUI object reference to m_ribbon


  Set m_ribbon = OPSRibbon
end sub






Public Property Get MainRibbon() As IRibbonUI
      'global property that re-exposes the ribbon system-wide
      'so consumers can call the IRibbonUI.Invalidate method as required

      Set MainRibbon = m_ribbon

    End Property

Private Sub Form_Current()
  'consumes the global object reference to the ribbon
  'calls its invalidate method
  'and while rebuilding the ribbon your ToolEnabled() method will be called
  'to enable, or not, your control

  MainRibbon.Invalidate


End Sub

access 2013选项中也设置了自定义功能区: 当前数据库 --> 色带选项 --> 命名色带 --> 我的色带

知道如何在设计器模式下加载自定义功能区吗?也许有一个按钮或什么的?

我建议避免使用 Shift 键在调试模式下打开应用程序。在应用程序中设置类似“调试”标志的内容,使用此标志加载自定义功能区的调试版本(使用 startFromScratch="false")并绕过例如登录屏幕。对于发布更改功能区到生产版本。 另一种方法——在使用 Shift 键

启动应用程序后,在表单或宏中使用 LoadCustomUI 方法加载菜单