Access数据验证：未在tblinvoices中的发票号禁止录入tblroute

嘿，我看了你写的这段用于tblroute表发票号校验的VBA代码，思路完全在线！不过有几个小细节可以调整，让代码更健壮、更适配不同场景：

先修正代码里的小问题 #

• 事件名里的双下划线应该是笔误，要和你的控件名称对应，比如应该是INV_BeforeUpdate（确保和控件的实际名称一致）
• 提示文本里的拼写错误：把PLease ipdate改成Please update，避免给用户造成困惑

优化后的健壮版代码 #

考虑到发票号可能是文本或数字类型，下面的代码能兼容两种情况，同时解决潜在的SQL语法错误问题：

Private Sub INV_BeforeUpdate(Cancel As Integer)
    Dim invInput As Variant
    invInput = Me.INV.Value
    
    ' 先跳过空值校验，避免用户未输入就触发提示
    If IsNull(invInput) Then Exit Sub
    
    ' 用DCount替代DLookup：只需要统计是否存在匹配项，逻辑更高效清晰
    Dim matchCount As Integer
    matchCount = DCount("[inv]", "tblinvoices", "[inv] = " & _
        IIf(IsNumeric(invInput), invInput, "'" & Replace(invInput, "'", "''") & "'"))
    
    If matchCount = 0 Then
        MsgBox "发票号不存在！" & vbCrLf & "请先更新发票主表。", vbCritical + vbOKOnly + vbDefaultButton1, "无效发票号"
        Cancel = True ' 取消当前更新操作
        Me.INV.Undo ' 让控件回到编辑前的状态
    End If
End Sub

关键优化点说明 #

1. 用DCount替代DLookup：我们只需要知道发票号是否存在，不需要返回具体值，DCount直接统计匹配数量，性能和逻辑清晰度都更优
2. 兼容文本/数字类型：通过IsNumeric判断输入类型，自动调整SQL拼接格式；如果是文本类型，用Replace转义单引号，避免用户输入带单引号的发票号时触发SQL语法错误
3. 增加空值判断：跳过空输入的校验，避免不必要的提示

额外建议 #

• 给tblinvoices的inv字段设置唯一索引或主键，确保主表的发票号不会重复，这样校验结果更可靠
• 如果你的发票号是固定格式的文本，还可以在BeforeUpdate事件里先做格式校验（比如长度、字符类型），再做存在性校验

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