Access獲取被點擊的標(biāo)簽控件標(biāo)題

如下圖所示，當(dāng)點擊標(biāo)簽時，顯示點擊到標(biāo)簽標(biāo)題

版主roych在一番斥責(zé)后，給出了答案，用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

獲取效果如圖所示：