Access窗体命令按钮添加表记录失败，求排查及替代方法

一、现有代码的错误分析与修正 #

你的代码存在几个关键问题，导致添加记录失败：

• 错误处理被禁用：注释掉了On Error GoTo Err_AddRecord_Click，无法捕获具体错误信息，这是排查问题的核心前提。
• 未给字段赋值就执行Update：rstMandanten.AddNew后直接调用Update，如果表Mandantenliste中有必填字段且无默认值，会因字段为空导致更新失败。
• 资源未释放+语法错误：记录集关闭、对象释放的代码被注释，容易造成内存泄漏；末尾的'DoCmd.Close"存在语法错误，即使取消注释也无法正常执行。

修正后的代码示例 #

Private Sub AddRecord_Click()
    On Error GoTo Err_AddRecord_Click
 
    Dim AddMandant As DAO.Database
    Dim rstMandanten As DAO.Recordset
    Set AddMandant = CurrentDb
    Set rstMandanten = AddMandant.OpenRecordset("Mandantenliste")

    rstMandanten.AddNew
    ' 替换为你的实际字段名和对应值，必填字段必须赋值
    rstMandanten!公司名称 = "测试公司"
    rstMandanten!创建日期 = Date()
    rstMandanten.Update
    
    ' 释放占用的资源
    rstMandanten.Close
    Set rstMandanten = Nothing
    Set AddMandant = Nothing
    
    MsgBox "记录添加成功"
    
Exit_AddRecord_Click:
    Exit Sub
    
Err_AddRecord_Click:
    MsgBox "错误编号：" & Err.Number & vbCrLf & "错误描述：" & Err.Description
    Resume Exit_AddRecord_Click
End Sub

二、关于使用DoCmd.OpenTable实现添加记录的说明 #

DoCmd.OpenTable "Mandantenliste", acEdit的作用是打开表的编辑界面，让用户手动添加或修改记录，它无法自动完成添加新记录的操作。

如果想不使用记录集实现自动添加记录，可以用以下两种更直接的方式：

• 使用DoCmd.RunSQL执行INSERT语句：

  Private Sub AddRecord_Click()
      On Error GoTo Err_AddRecord_Click
      
      ' 替换为你的字段名和对应值，字符串用单引号包裹，日期用#包裹
      DoCmd.RunSQL "INSERT INTO Mandantenliste (公司名称, 创建日期) VALUES ('测试公司', #2024-05-20#)"
      MsgBox "记录添加成功"
      
  Exit_AddRecord_Click:
      Exit Sub
      
  Err_AddRecord_Click:
      MsgBox "错误编号：" & Err.Number & vbCrLf & "错误描述：" & Err.Description
      Resume Exit_AddRecord_Click
  End Sub
  

• 如果窗体绑定了该表，直接使用窗体的AddNew方法：

  Private Sub AddRecord_Click()
      On Error GoTo Err_AddRecord_Click
      
      Me.AddNew
      Me!公司名称 = "测试公司"
      Me!创建日期 = Date()
      Me.Update
      MsgBox "记录添加成功"
      
  Exit_AddRecord_Click:
      Exit Sub
      
  Err_AddRecord_Click:
      MsgBox "错误编号：" & Err.Number & vbCrLf & "错误描述：" & Err.Description
      Resume Exit_AddRecord_Click
  End Sub
  

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