vba - 如何解决Microsoft Access中的编译错误？

我不断收到未定义的“编译错误”用户定义类型。

错误发生在“将公共(public)Ribbon作为IRibbonUI公开”

我在工具下添加了更多引用，以尝试解决该问题，但是仍然出现编译错误

Option Compare Database
Option Explicit

Public globalRibbon As IRibbonUI


Public Sub onRibbonLoad(ByVal ribbon As IRibbonUI)
  Set globalRibbon = ribbon
End Sub

Public Sub RibOpenForm(control As IRibbonControl)
  DoCmd.OpenForm (control.Tag)
End Sub

Public Sub ControlEnabled(control As IRibbonControl, ByRef enabled)
    Select Case control.ID
        Case "Primary"
            If CurrentProject.AllForms("Primary").IsLoaded Then
               enabled = False
          Else
                enabled = True
          End If

        End Select

  End Sub

我希望能够设置自定义功能区控件，但是它不起作用。

最佳答案

您的VBA环境中的COM引用似乎有问题。您可以尝试安装最新的更新和/或修复Office。

打开VBA编辑器，然后转到“工具” |“工具”。引用文献。

向下滚动，直到看到以下条目:

Microsoft Access X.0对象库。

Microsoft Office X.0对象库。

如果您有多个版本，请使用最新版本。

两个条目都应该被选中。

关于vba - 如何解决Microsoft Access中的编译错误？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/56961509/