MS Access 未绑定文本框Validation rule设置方法

该需求可以实现，但不能直接依赖Textbox2自带的Validation Rule属性完成。

原因 #

Access窗体控件原生的Validation Rule触发条件非常有限：

• 仅在用户手动编辑控件内容、控件失去焦点时才会执行校验
• 通过VBA代码修改控件值的动作（比如你在Textbox1的AfterUpdate事件里给Textbox2赋值），不会触发控件自带的验证规则，哪怕规则配置正确也不会弹出提示。

实现方案 #

最稳妥的实现方式是直接通过VBA事件完成校验，两种常用写法如下：

方案1：直接在Textbox1的AfterUpdate事件中完成赋值+校验 #

因为Textbox2的内容本身就是Textbox1更新后触发赋值的，直接在同一个事件里写完逻辑即可，不需要额外关联Textbox2的事件，代码示例：

Private Sub Textbox1_AfterUpdate()
    ' 保留你原有的Textbox2赋值逻辑，替换成你自己的业务代码即可
    Me!Textbox2.Value = "你原本配置的Textbox2赋值规则，比如查询匹配值、拼接文本等"
    
    ' 新增校验逻辑：判断Textbox2内容是否包含"Hold"（默认不区分大小写）
    If InStr(1, Nz(Me!Textbox2.Value, ""), "Hold", vbTextCompare) > 0 Then
        MsgBox "Invalid Entry", vbExclamation
        ' 可选：校验不通过时执行额外操作，比如清空Textbox2、把焦点切回Textbox1
        ' Me!Textbox2.Value = ""
        ' Me!Textbox1.SetFocus
    End If
End Sub

方案2：把校验逻辑独立写在Textbox2的事件中，复用校验规则 #

如果你需要在其他场景（比如手动修改Textbox2内容）也触发同样的校验，可以把校验逻辑放在Textbox2的AfterUpdate事件中，在Textbox1赋值完成后主动调用该事件即可：

' Textbox2的更新后事件：统一存放校验逻辑
Private Sub Textbox2_AfterUpdate()
    If InStr(1, Nz(Me!Textbox2.Value, ""), "Hold", vbTextCompare) > 0 Then
        MsgBox "Invalid Entry", vbExclamation
    End If
End Sub

' Textbox1的更新后事件：赋值后主动触发Textbox2的校验
Private Sub Textbox1_AfterUpdate()
    ' 原有赋值逻辑
    Me!Textbox2.Value = "你自己的赋值规则"
    ' 主动调用Textbox2的校验逻辑
    Call Textbox2_AfterUpdate
End Sub

注意事项 #

• 代码中Nz(Me!Textbox2.Value, "")的作用是处理Textbox2为空值（Null）的情况，避免校验函数报错
• 参数vbTextCompare代表不区分大小写匹配，会同时识别Hold、HOLD、hold等不同大小写形式，如果需要严格匹配大小写，删除该参数即可
• 未绑定文本框没有表级验证触发逻辑，所有代码赋值场景的校验都需要通过事件主动触发，不需要在属性表的Validation Rule项上做无效配置。

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