数据库表单记录校验与控件禁用：OnExit事件宏编写求助

嘿，别纠结宏啦，VBA才是搞定这个需求的最佳选择——宏的灵活性实在太差，这种逻辑复杂的场景用VBA得心应手。我给你梳理一套完整的实现步骤，直接就能套用：

一、选对触发事件，比OnExit更靠谱 #

放弃OnExit，改用控件的AfterUpdate事件更合适。这个事件会在用户完成输入并离开控件且内容有修改时触发，刚好匹配我们需要的“输入后立刻检查”的时机，不会像OnExit那样不管有没有修改都触发。

二、具体实现代码（直接套用） #

假设你的表单是frmNewRecord，需要检查的控件是txtUniqueCode（比如用户输入的唯一编号/标识），对应的数据源表是tblRecords，唯一匹配字段是UniqueCode。按以下步骤操作：

1. 打开表单设计视图，右键点击txtUniqueCode控件 → 选择【事件生成器】→ 选【代码生成器】，打开VBA编辑器。
2. 粘贴下面的代码（记得替换成你自己的表名、控件名和字段名）：

Private Sub txtUniqueCode_AfterUpdate()
    Dim searchCondition As String
    Dim recordSet As Recordset
    
    ' 空值直接跳过检查
    If IsNull(Me.txtUniqueCode.Value) Then Exit Sub
    
    ' 构建查询条件（文本类型字段加单引号，数字类型去掉单引号）
    searchCondition = "UniqueCode = '" & Me.txtUniqueCode.Value & "'"
    
    ' 复制表单的记录集用于查询
    Set recordSet = Me.RecordsetClone
    
    ' 查找是否存在匹配记录
    recordSet.FindFirst searchCondition
    
    ' 如果找到匹配记录
    If Not recordSet.NoMatch Then
        ' 跳转到该现有记录
        Me.Bookmark = recordSet.Bookmark
        
        ' 禁用+锁定指定控件（双重保障，防止修改）
        Me.txtUniqueCode.Enabled = False
        Me.txtUniqueCode.Locked = True
        
        ' 可选：给用户一个提示，提升体验
        MsgBox "该记录已存在，已帮你跳转至对应记录！", vbInformation, "提示"
    Else
        ' 没找到的话，保持控件可用，继续录入新记录
        Me.txtUniqueCode.Enabled = True
        Me.txtUniqueCode.Locked = False
    End If
    
    ' 释放资源
    recordSet.Close
    Set recordSet = Nothing
End Sub

三、额外优化：切换记录时自动适配控件状态 #

为了确保用户切换记录时，控件状态始终正确（新记录可编辑，现有记录锁定），可以在表单的Current事件里加这段代码：

Private Sub Form_Current()
    ' 判断当前是否是新记录
    If Me.NewRecord Then
        Me.txtUniqueCode.Enabled = True
        Me.txtUniqueCode.Locked = False
    Else
        Me.txtUniqueCode.Enabled = False
        Me.txtUniqueCode.Locked = True
    End If
End Sub

这样一套操作下来，完全满足你的需求：输入数据后自动检查重复，存在就跳转并锁定指定控件，其他字段正常编辑，新记录时控件也能正常使用。

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