如何在MS Access中用函数或类简化重复的控件焦点事件代码？

方法一：通用函数快速简化 #

先编写两个通用处理函数，让所有控件的焦点事件直接调用，避免重复写样式代码：

1. 在表单模块中添加通用函数

' 通用焦点进入样式设置
Private Sub SetFocusStyle(c As Control)
    c.BorderWidth = 3
    c.BorderColor = RGB(80, 234, 240)
End Sub

' 通用焦点退出样式恢复
Private Sub ResetFocusStyle(c As Control)
    c.BorderWidth = 0
    c.BorderColor = RGB(166, 166, 166)
End Sub

2. 每个控件的事件只需一行调用
   以team控件为例，修改原有事件代码：

Private Sub team_Enter()
    SetFocusStyle team
End Sub

Private Sub team_Exit(Cancel As Integer)
    ResetFocusStyle team
End Sub

所有需要设置的控件都照此方式修改，代码量直接减半，且后续调整样式只需修改通用函数。

方法二：类模块批量绑定（适合16+控件场景） #

通过类模块实现批量绑定事件，无需给每个控件手动写调用代码：

1. 创建类模块

• 新建类模块，命名为clsControlFocus
• 写入以下代码：

Option Explicit

' 声明带事件的控件变量
Public WithEvents TargetCtrl As Control

' 控件获得焦点时触发
Private Sub TargetCtrl_Enter()
    TargetCtrl.BorderWidth = 3
    TargetCtrl.BorderColor = RGB(80, 234, 240)
End Sub

' 控件失去焦点时触发
Private Sub TargetCtrl_Exit(Cancel As Integer)
    TargetCtrl.BorderWidth = 0
    TargetCtrl.BorderColor = RGB(166, 166, 166)
End Sub

2. 在表单模块中批量绑定控件

Option Explicit

' 声明类对象集合，必须为模块级变量，防止被自动回收
Private colFocusControls As Collection

Private Sub Form_Load()
    Dim ctrl As Control
    Dim objFocus As clsControlFocus
    
    Set colFocusControls = New Collection
    
    ' 遍历表单中需要设置的控件，可按类型筛选（如文本框、组合框）
    For Each ctrl In Me.Controls
        ' 按需调整控件类型，比如只处理TextBox和ComboBox
        If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
            Set objFocus = New clsControlFocus
            Set objFocus.TargetCtrl = ctrl
            colFocusControls.Add objFocus
        End If
    Next ctrl
End Sub

注意事项 #

• 类模块法中，colFocusControls必须是表单模块的私有变量，不能是Form_Load内的局部变量，否则类对象会被VBA回收，事件失效。
• 若需排除特定控件，可在遍历循环中添加条件：If ctrl.Name <> "不需要设置的控件名" Then。
• 确保控件原有Enter/Exit事件无冲突逻辑，或合并到类模块的事件处理中。

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