Access VBA多条件DLookup实现重复组合记录自动跳转方法

你原来的代码存在4个直接导致功能失效的错误：

• 条件拼接语法错误：DLookup的查询条件参数里，And运算符被放在了字符串引号外部，VB会直接把它当成逻辑运算处理，根本无法生成正确的查询条件
• 触发事件选错：On Change事件在控件输入过程中就会触发，此时控件的最终值还未提交，拿到的是未完成的临时输入值，无法做准确匹配
• 数据格式错误：Access SQL语法中日期类型值必须用#包裹，不能用文本类型的单引号，原代码给Date_Field套单引号会直接导致日期匹配失败
• 跳转逻辑错误：DoCmd.GoToRecord指定acDataTable会直接打开独立的表视图跳转，不是在当前录入窗体上定位；且该方法的定位参数是记录在当前记录集的顺序号，不是表的ID主键值，直接传入ID大概率跳转到错误记录

1. 移除原来绑定在4个控件On Change事件上的代码，改为给4个录入控件（班次、操作员、日期、机器）的AfterUpdate事件绑定校验逻辑——该事件仅在用户完成输入、控件值确认提交后触发
2. 替换为以下可直接运行的代码：

' 通用重复记录校验跳转过程
Private Sub CheckDuplicateRecord()
    Dim strCondition As String
    Dim lngExistID As Long
    Dim rs As DAO.Recordset
    
    ' 四个字段未全部填完时不触发校验，避免空值报错
    If IsNull(Me.ShiftCbo) Or IsNull(Me.OpCbo) Or IsNull(Me.DateBox) Or IsNull(Me.MachineCbo) Then
        Exit Sub
    End If
    
    ' 拼接合规查询条件：文本字段转义单引号、日期字段统一格式用#包裹
    strCondition = _
        "[Shift]='" & Replace(Me.ShiftCbo, "'", "''") & "' AND " & _
        "[Operator]='" & Replace(Me.OpCbo, "'", "''") & "' AND " & _
        "[Date_Field]=#" & Format(Me.DateBox, "yyyy-mm-dd") & "# AND " & _
        "[Machine]='" & Replace(Me.MachineCbo, "'", "''") & "'"
    
    ' 查询匹配记录ID
    lngExistID = Nz(DLookup("ID", "Tracking", strCondition), 0)
    
    If lngExistID > 0 Then
        ' 通过书签精准定位当前窗体的绑定记录，不受排序、筛选、ID不连续影响
        Set rs = Me.RecordsetClone
        rs.FindFirst "ID=" & lngExistID
        If Not rs.NoMatch Then
            Me.Bookmark = rs.Bookmark
        End If
        rs.Close
        Set rs = Nothing
    End If
End Sub

' 四个录入控件更新后统一调用校验过程
Private Sub ShiftCbo_AfterUpdate()
    CheckDuplicateRecord
End Sub

Private Sub OpCbo_AfterUpdate()
    CheckDuplicateRecord
End Sub

Private Sub DateBox_AfterUpdate()
    CheckDuplicateRecord
End Sub

Private Sub MachineCbo_AfterUpdate()
    CheckDuplicateRecord
End Sub

• 代码增加了单引号转义逻辑，遇到名称带单引号的操作员、机器名时不会触发SQL语法错误
• 日期统一转换为yyyy-mm-dd格式，不会因为系统区域的日期格式差异导致匹配失败
• 用RecordsetClone+Bookmark的定位方式，比GoToRecord稳定性高，无论窗体做了筛选、排序还是分页，都能精准跳转到目标记录

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