Access获取被点击的标签控件标题

如下图所示，当点击标签时，显示点击到标签标题

版主roych在一番斥责后，给出了答案，用onclick对象返回“属性”窗口中“单击”框的值

Private Sub Form_Load()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acLabel Then
            ctl.OnClick = "=Label_Click([" & ctl.Name & "])"
        End If
    Next
End Sub


Function Label_Click(ByRef lbl As Label)
    MsgBox "你点击了" & lbl.Caption
End Function

获取效果如图所示：