Question

在我的USysRibbons表中，我在下面有这个RibbonXML，它有一个labelControl我想用onload事件来改变＆＃34; BAMPEAMain_onLoad＆＃34;

当我打开数据库时，MsAcces会显示以下消息 ...无法运行marco或回调函数＆＃39; 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显示以下消息时...无法运行marco或回调函数'BAMPEAMain_onLoad。这是因为MS访问无法在你的vba模块中找到公共子BAMPEAMain_onLoad，或者模块中有拼写错误。

问题已解决。

MS Access功能区onload

1 个答案: