Access数据库重复值触发表单重置功能实现求助

要实现检测到重复ID后清空输入框并强制用户重新输入，你需要在BeforeUpdate事件中添加清空控件值、取消当前更新的逻辑，同时将焦点定位回输入控件，方便用户直接操作。

修改后的完整代码 #

Private Sub KitID2_BeforeUpdate(Cancel As Integer)
    Dim varMasterCartonSKU As Variant
    Dim strCriteria As String

    ' 构建查询条件（注意：如果KitID是数字类型，去掉单引号）
    strCriteria = "[KitID]='" & Me.KitID2.Value & "'"
    Debug.Print strCriteria
    
    varMasterCartonSKU = DLookup("KitID", "Used_KitID_Tbl", strCriteria)
    
    If Not IsNull(varMasterCartonSKU) Then
        ' 弹出警告（改用vbOKOnly更合理，用户仅需确认后重新输入）
        MsgBox "该KitID已被使用，请重新输入！", vbExclamation + vbOKOnly
        
        ' 清空输入框内容
        Me.KitID2.Value = ""
        ' 取消当前更新操作，阻止重复值保存
        Cancel = True
        ' 将焦点移回输入控件，方便用户直接输入新值
        Me.KitID2.SetFocus
    End If
End Sub

关键逻辑说明 #

• Cancel = True：核心操作，用于取消当前的BeforeUpdate事件，彻底阻止重复的KitID被保存。
• Me.KitID2.Value = ""：直接清空输入框，让用户重新输入有效ID。
• Me.KitID2.SetFocus：自动将光标定位回KitID2控件，无需用户手动点击切换。
• 弹窗类型调整：把原有的vbYesNo改为vbOKOnly + vbExclamation，因为此时用户没有保留重复值的合理需求，只需确认后重新输入即可。

注意事项 #

如果你的KitID是数字类型（而非文本类型），需要修改查询条件的拼接方式，去掉单引号：

strCriteria = "[KitID]=" & Me.KitID2.Value

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