如何在MS Access VBA中通过TextBox.OnKeyUp属性传递KeyCode

嘿，我完全懂你碰到的这个麻烦——用OnKeyUp属性绑定函数时，没法直接把KeyCode和Shift参数传进去对吧？这其实是因为Access在这种表达式绑定的模式下，有它自己的规则，和手动创建的事件过程不一样。

为什么直接传参数不行？ #

当你用txtMyTextBox.OnKeyUp = "=myEventHandlerFunction()"这种写法时，Access把它当作一个无参的表达式调用，它不会自动把KeyUp事件自带的KeyCode和Shift参数注入到这个表达式里。而手动创建的KeyUp事件过程，是直接和控件的事件委托挂钩的，Access会自动把这些参数传递给过程，这就是两种方式的核心区别。

推荐解决方案：用类模块批量绑定事件（最优雅的方式） #

如果要给多个TextBox绑定带参数的KeyUp事件，类模块是最佳选择，既灵活又易于维护：

1. 创建类模块
   新建一个类模块，命名为clsTextBoxKeyUpHandler（名字随便取，见名知意就行），然后在模块里添加以下代码：

   ' 声明一个带事件的TextBox对象
   Public WithEvents TargetTextBox As Access.TextBox
   
   ' 响应KeyUp事件，自动获取参数
   Private Sub TargetTextBox_KeyUp(KeyCode As Integer, Shift As Integer)
       ' 直接调用你的处理函数，传递参数
       myEventHandlerFunction KeyCode, Shift
   End Sub
   

2. 在窗体模块中管理类实例
   打开窗体的代码模块，先声明一个集合来保存类实例（不然类实例会被垃圾回收，事件就失效了），然后在窗体加载时批量绑定控件：

   ' 保存类实例的集合，必须是模块级变量
   Private colTextBoxHandlers As New Collection
   
   Private Sub Form_Load()
       Dim objHandler As clsTextBoxKeyUpHandler
       Dim ctl As Control
   
       ' 遍历窗体上的TextBox，这里可以根据需要筛选（比如按Tag、按名称前缀）
       For Each ctl In Me.Controls
           ' 示例：绑定所有Tag为"BindKeyUp"的TextBox
           If ctl.ControlType = acTextBox And ctl.Tag = "BindKeyUp" Then
               Set objHandler = New clsTextBoxKeyUpHandler
               Set objHandler.TargetTextBox = ctl
               colTextBoxHandlers.Add objHandler
           End If
       Next ctl
   End Sub
   

3. 编写你的处理函数
   现在你可以正常定义带参数的处理函数了：

   Public Sub myEventHandlerFunction(KeyCode As Integer, Shift As Integer)
       ' 在这里处理按键逻辑，比如：
       MsgBox "按下了键码：" & KeyCode & "，Shift状态：" & Shift
   End Sub
   

备选方案：动态创建事件过程（适合少量控件） #

如果控件数量不多，也可以用CreateEventProc方法动态给每个TextBox生成KeyUp事件过程，不过这种方式需要操作代码模块，相对繁琐：

Private Sub Form_Load()
    Dim ctl As Control
    Dim procLineStart As Integer
    Dim modForm As Module

    Set modForm = Me.Module

    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox And ctl.Name Like "txtMy*" Then
            ' 创建KeyUp事件过程的框架
            procLineStart = modForm.CreateEventProc("KeyUp", ctl.Name)
            ' 在过程里添加调用处理函数的代码
            modForm.InsertLines procLineStart + 1, "    myEventHandlerFunction KeyCode, Shift"
            ' 补全End Sub（CreateEventProc只会生成开头）
            modForm.InsertLines procLineStart + 2, "End Sub"
        End If
    Next ctl
End Sub

注意：这种方法需要确保窗体代码模块没有同名的事件过程，而且要注意代码修改的权限问题。

总结 #

类模块的方式是最推荐的，它不仅能完美解决参数传递的问题，还能轻松批量处理多个控件，代码也更整洁易维护。

内容的提问来源于stack exchange，提问作者Jörg Brenninkmeyer