Access穫?cè)”稽c擊的標(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

穫?cè)⌒Ч鐖D所示：