Access 2013自定义功能区不起作用

Question

单击“Pres Me”

时，下面是我的UI，表格，记录和错误消息

我的XML是：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" >
  <ribbon startFromScratch="true">
    <tabs>
      <tab id="dbCustomTab" label ="My menue">
       <group id="MyGroup" label="Button Demo">
        <button id="menue" label="Press me" onAction="OpenMenue" />
       </group>
      </tab>
   </tabs>
  </ribbon>
 <backstage>
  <button idMso="ApplicationOptionsDialog" visible="false"/>
 </backstage>
</customUI>

我的代码附在module1中。

Option Compare Database

'declaration
Public objRibbon As IRibbonUI

Public Sub OnRibbonLoad(objRib As IRibbonUI)

Set objRibbon = objRib

End Sub

'our callback for the SampleButton
Public Sub OpenMenue(ctl As IRibbonControl)

If (ctl.ID = "menue") Then

MsgBox ("You have just executed the OnButtonPress callback when    clicking" _
& vbCrLf & "the Ribbon SampleButton!")

End If

End Sub

代码和XML来自http://burningpenguin.com/viewtopic.php?t=176。我改变了

button id="menue" label="Press me" onAction="OnPress"

到

button id="menue" label="Press me" onAction="OpenMenue"

因为OnAction名称在XML和模块中是不同的。

非常感谢你。

Answer 1

OnPress关键字是与按钮关联的事件。没有名为OnMenue的事件，因此您的更改没有意义。如果你想在代码中调用方法，你必须重命名你的按钮，它当前叫做menue。