自定义Ribbon按钮标签与图片刷新异常问题求助

报错原因分析 #

出现重启提示的核心原因是MyRibbon全局对象失效（未正确初始化或丢失引用），导致调用Invalidate时触发错误。

具体修复步骤 #

1. 确保Ribbon对象正确持久化
   必须在Ribbon的onLoad事件中保存Ribbon引用到全局变量，这是刷新Ribbon的前提：

   • 在Ribbon的XML配置中添加onLoad属性：

     <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="RibbonOnLoad">
         <!-- 你的Ribbon按钮配置 -->
     </customUI>
     

   • 在标准模块中定义全局变量并实现RibbonOnLoad过程：

     Public MyRibbon As IRibbonUI
     
     Sub RibbonOnLoad(ribbon As IRibbonUI)
         Set MyRibbon = ribbon
     End Sub
     

2. 移除重复的刷新调用
   你目前在关闭按钮中同时调用了sbRefreshRibbon和MyRibbon.Invalidate，属于重复操作，只需保留一个调用即可，例如关闭按钮代码改为：

   sbRefreshRibbon
   

3. 优化刷新逻辑与错误处理
   修改sbRefreshRibbon过程，优先检查Ribbon对象有效性，并且针对单个按钮刷新（比全局刷新更稳定）：

   Public Sub sbRefreshRibbon()
       ' 先确认Ribbon对象存在
       If MyRibbon Is Nothing Then
           MsgBox "Ribbon未完成初始化，请重新打开应用", vbExclamation, "提示"
           Exit Sub
       End If
   
       On Error Resume Next
       ' 优先尝试刷新目标按钮（替换成你的按钮ID）
       MyRibbon.InvalidateControl "btnCustomAction"
       ' 如果单个刷新失败，再尝试全局刷新
       If Err.Number <> 0 Then
           MyRibbon.Invalidate
           Err.Clear
       End If
       On Error GoTo 0
   End Sub
   

4. 调整刷新时机
   确保表单中更新表值的操作完全完成后再调用刷新，比如在关闭按钮的Click事件中，先执行数据保存，再调用sbRefreshRibbon：

   Private Sub cmdClose_Click()
       ' 先保存表单数据（如果需要）
       If Me.Dirty Then Me.Dirty = False
       ' 再刷新Ribbon
       sbRefreshRibbon
       ' 最后关闭表单
       DoCmd.Close acForm, Me.Name
   End Sub
   

内容的提问来源于stack exchange，提问作者Nata