Access VBA加载窗体时类绑定标签出现类型不匹配错误

错误原因 #

自定义类中声明的LabelControl类型为MSForms.Label，但Access窗体自带的标签控件属于Access.Label类型，两者分属不同控件库，赋值时触发运行时错误13：类型不匹配。

修正方案 #

1. 修改自定义类代码 #

将控件类型替换为Access原生标签类型：

Option Explicit

Public WithEvents LabelControl As Access.Label

Private Sub LabelControl_Click()
    MsgBox "标签名称: " & LabelControl.Name & vbNewLine & "标签Tag: " & LabelControl.Tag
End Sub

2. 窗体代码保持不变 #

Option Explicit
Dim MyClickableLabel As New MyLabelClass

Private Sub Form_Load()
    Set MyClickableLabel.LabelControl = Me.Label2
End Sub

补充说明 #

只有当你在Access窗体中使用ActiveX控件里的Microsoft Forms 2.0标签时，才需要用MSForms.Label类型。常规Access窗体默认使用的是自身原生标签控件，对应Access.Label类型。

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