MS Access：NotInList新增记录后关闭表单无法保存如何处理？

场景与问题 #

• 表单中的组合框关联数据表，输入列表外的项时，系统会询问是否新增项；选择“是”则打开另一表单，且新项已填入该表单的一个控件。
• 关联的数据表包含更多字段，打开的表单包含这些字段，但打开时这些字段为空且非必填。
• 当前问题：仅关闭表单时，已填入的单字段数据不会保存；但只要在任意其他字段输入内容，数据就能正常保存。需要实现仅关闭表单也能强制保存记录。

现有代码 #

Private Sub Form_Open(Cancel As Integer)
    Dim strFirstName As String, strLastName As String
    
    If Not IsNull(Me.OpenArgs) Then
        If Me.OpenArgs <> "New Contact" Then
            Forms("NKTPersonnelF").PersName.DefaultValue = """" & Me.OpenArgs & """"
        End If
    End If
End Sub

Private Sub cmdClose_Click()
    DoCmd.RunCommand acCmdSaveRecord
    On Error Resume Next
    If Me.Dirty Then Me.Dirty = False
    
    If Err.Number = 0 Then
        DoCmd.Close acForm, Me.Name
    End If
End Sub

解决方案 #

问题根源

Access仅在表单处于Dirty（脏）状态（即有字段被修改过）时才会触发保存。你当前通过DefaultValue设置控件默认值，这不会将表单标记为脏状态，因此直接关闭时不会保存记录。

方案1：修改Form_Open事件，直接赋值触发脏状态

将设置DefaultValue改为直接给控件Value属性赋值，这样会直接修改当前记录字段，让表单进入脏状态：

Private Sub Form_Open(Cancel As Integer)
    If Not IsNull(Me.OpenArgs) Then
        If Me.OpenArgs <> "New Contact" Then
            ' 直接赋值控件Value，而非设置默认值
            Me.PersName.Value = Me.OpenArgs
            ' 可选：主动标记表单为脏状态（部分版本可能需要）
            ' Me.Dirty = True
        End If
    End If
End Sub

此时原有的cmdClose_Click代码就能正常触发保存，因为表单已处于脏状态。

方案2：主动通过Recordset创建记录（更可靠）

不依赖表单脏状态，直接通过记录集主动添加并保存记录，适用于更复杂的场景：

Private Sub cmdClose_Click()
    Dim rs As Recordset
    
    ' 仅当PersName有值时创建记录
    If Not IsNull(Me.PersName.Value) Then
        Set rs = Me.RecordsetClone
        rs.AddNew
        rs!PersName = Me.PersName.Value
        ' 如果需要同步其他字段，可在此添加赋值语句
        ' rs!OtherField = Me.OtherField.Value
        rs.Update
        rs.Close
        Set rs = Nothing
    End If
    
    ' 关闭表单
    DoCmd.Close acForm, Me.Name
End Sub

这种方式无需依赖表单的脏状态判断，直接操作记录集确保数据被保存，稳定性更强。

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