如何在Access VBA中实现多个On Click事件调用同一Sub？

问题说明 #

我在Access里有一个列表表单，上面显示7个数据字段。现在希望用户点击任意一个字段时，都执行同一个Sub，而且不用区分具体点的是哪个字段。目前我是给每个字段单独设置指向该Sub的On Click事件，想找更省事的处理方式。这个Sub的功能是打开一个表单，代码如下：

Sub Gage_Load()
    On Error GoTo ErrorHandler
    
    Dim ID As Variant
    
    ' 确保Table_ID字段有值再继续
    If IsNull(Me.Table_ID) Then
        MsgBox "未选中记录或量具ID为空。这种情况可能是数据很久没刷新导致的，请刷新后重试。", vbExclamation, "错误"
        Exit Sub
    End If

    ID = Me.Table_ID
    DoCmd.OpenForm "Gage_Modify", , , , , , ID

    Exit Sub

ErrorHandler:
    MsgBox "发生错误: " & Err.Description, vbCritical, "错误"
End Sub

简洁解决方案 #

方案1：用表单级点击事件替代单个字段事件 #

直接给整个列表表单设置On Click事件，调用你的Gage_Load过程。这样不管点击记录行里的哪个字段，都会触发这个事件。如果不想让点击表单空白区域或记录选择器也触发，可以加个判断：

新建一个表单点击事件过程：

Sub Form_Click()
    ' 只在点击文本框或标签类数据控件时触发
    If TypeOf Screen.ActiveControl Is TextBox Or TypeOf Screen.ActiveControl Is Label Then
        Gage_Load
    End If
End Sub

然后把表单的On Click事件绑定到这个Form_Click，同时移除所有字段单独设置的On Click事件。另外可以把表单的RecordSelectors属性设为No，避免点击记录选择器触发事件。

方案2：表单加载时批量绑定事件 #

如果需要批量处理控件，可在表单的Load事件里自动给目标字段绑定点击事件，不用手动逐个设置：

Sub Form_Load()
    Dim ctl As Control
    ' 遍历表单控件，筛选需要绑定事件的字段（这里以文本框和标签为例）
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Or ctl.ControlType = acLabel Then
            ' 统一绑定点击事件到Gage_Load
            ctl.OnClick = "=Gage_Load()"
        End If
    Next ctl
End Sub

表单加载后，符合条件的控件会自动带上点击事件，后续新增字段只要符合筛选条件也会自动绑定，维护更方便。

注意点 #

• 两种方案都不需要修改你原有的Gage_Load过程，直接复用即可。
• 如果有不需要触发事件的控件，可以在筛选条件里通过控件名称排除（比如If ctl.Name Like "Field*"来匹配特定前缀的字段）。

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