MS Access窗体输入ID2查找记录、无匹配自动新建的代码问题

1. 原代码存在的错误 #

• 引用控件值不规范：代码中直接写ID2时，VBA会将其识别为未声明的变量，无法正确读取你在文本框中输入的内容，必须明确指定是窗体上的控件值，改为Me!ID2即可。
• 多余的记录集关闭操作：Me.RecordsetClone是Access窗体内置的克隆记录集对象，不需要手动调用Close方法关闭，强制关闭会破坏窗体的记录集引用，触发运行时错误。
• 隐藏的控件绑定问题：你通过自动生成功能创建的窗体，默认ID2文本框是绑定到表的ID2主键字段的，直接在绑定控件中输入值会直接修改当前记录的ID2，轻则跳转逻辑失效，重则出现主键重复报错，需要先将该文本框的控件来源属性清空，改为未绑定的搜索专用控件。
• 空输入无防护：如果ID2文本框为空时触发了AfterUpdate事件，FindFirst的条件会报错，需要加空值处理逻辑。

2. NoMatch分支修改方案 #

先做前置配置：选中ID2文本框，打开属性表的「数据」选项卡，删除「控件来源」输入框中的内容，将其改为未绑定控件。
修改后的完整可运行代码如下：

Private Sub ID2_AfterUpdate()
    Dim rs As DAO.Recordset
    ' 处理空输入，直接退出
    If IsNull(Me!ID2) Then Exit Sub
    Set rs = Me.RecordsetClone
    rs.FindFirst "[ID2]=" & Me!ID2
    If rs.NoMatch Then
        ' 如需要保留提示弹窗，可在此处加原MsgBox代码
        ' 跳转至新记录行
        DoCmd.GoToRecord , , acNewRec
        ' 给新记录的ID2字段赋值你输入的内容
        Me.Recordset!ID2 = Me!ID2
        ' 清空其余两个字段
        Me!Field1 = ""
        Me!Field2 = ""
    Else
        ' 跳转到匹配到的现有记录
        Me.Bookmark = rs.Bookmark
    End If
    ' 释放对象即可，不需要关闭rs
    Set rs = Nothing
End Sub

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