MS Access 功能区加载

Question

在我的 USysRibbons table 我有这个 RibbonXML 下面有一个 labelControl，我想使用 onload 事件改变它 "BAMPEAMain_onLoad"

当我打开数据库时，MsAcces 显示以下消息 ...不能运行宏或回调函数 'BAMPEAMain_onLoad。确保宏或函数存在并采用正确的参数。

BAMPEAMain_onLoad有什么问题

Public Sub BAMPEAMain_onLoad(ribbon As IRibbonUI)
'
' Code for onLoad callback. Ribbon control customUI

MsgBox "Hello " '& dhGetUserName 'use the record dhGetUserName function to get the current user logged ID.
.
.
.

RibbonXML

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="BAMPEAMain_onLoad">
<ribbon startFromScratch="true">
    <tabs>
    <tab idMso="TabFile" visible="false" />
    <tab idMso="TabHome" visible="false" />
    <tab idMso="TabCreate" visible="false" />
    <tab idMso="TabExternalData" visible="false" />
    <tab idMso="TabDatabaseTools" visible="false" />
    <tab idMso="TabSourceControl" visible="false" />
    <tab idMso="TabAddIns" visible="true" />
    <tab id="BAMPEA" label="BAMPEA" visible="true">
<group id="Connect" label="Connect" visible="true">
      <comboBox id="SelectSites" label="Sites" visible="true" onChange="SelectSites_onChange"/>
      <comboBox id="SelectDB" label="Select DB" visible="true" onChange="SelectDB_onChange"/>
     <labelControl id="CurrentUserId" label="Bonjour ! - " visible="true"/>
     <button id="ExitApp" imageMso="ShapeLightningBolt" label="Exit" visible="true" onAction="ExitApp_onAction"/>
     <button id="BAMPEAHelp" imageMso="WorkflowPending" visible="true" onAction="BAMPEAHelp_onAction"/>
</group ></tab >
</tabs> 
</ribbon>
<backstage>
    <tab idMso="TabInfo" visible="true"/>
    <button idMso="FileSave" visible="false"/>
    <button idMso="SaveObjectAs" visible="false"/>
    <button idMso="FileSaveAsCurrentFileFormat" visible="false"/>
    <button idMso="FileOpen" visible="false"/>
    <button idMso="FileCloseDatabase" visible="false"/>
    <tab idMso="TabRecent" visible="false"/>
    <tab idMso="TabNew" visible="false"/>
    <tab idMso="TabPrint" visible="false"/>
    <tab idMso="TabShare" visible="false"/>
<tab id="customTab" label="Custom Tab"/>
    <tab idMso="TabHelp" visible="false"/>
    <button idMso="ApplicationOptionsDialog" visible="false"/>
    <button idMso="FileExit" visible="false"/>
</backstage>
</customUI>

Answer 1

当 MsAccess 显示以下消息时...无法运行宏或回调函数 'BAMPEAMain_onLoad。这是因为 MS access 在您的 vba 模块中找不到 public sub BAMPEAMain_onLoad 或者您的模块中有错字。

问题已解决。

MS Access 功能区加载

MS Access ribbon onload

vba

ms-access-2010

ribbon