为什么MS Access VBA中DAO.Recordset.Update偶尔不生效也不报错？

• 最核心的诱因是窗体事件的隐式事务回滚：你这次触发错误的场景是欢迎窗体的Form_Open事件，当该事件因为运行时错误被取消时，Access会自动回滚当前会话内所有未提交的隐式事务，你写入错误日志的操作刚好被包含在这个事务范围内，所以即使执行了Update，最终也会被整体回滚，不会写入实际的表文件，也不会触发报错。你在断点中看到的主键生成、字段赋值正常，只是记录集缓存中的状态，不会同步到持久化存储。
• 次要诱因是CurrentDb的不稳定性：CurrentDb每次调用都会生成一个新的数据库实例对象，在Access启动阶段（登录、初始窗体加载时），工作区初始化未完全完成，CurrentDb的写入操作可能被静默丢弃。
• 潜在边界问题：你直接将InputBox的返回值赋值给字段，如果用户点击输入框的「取消」按钮，返回值为Null，虽然你表中没有必填字段，但部分Access版本对DAO隐式Null赋值的处理存在bug，可能导致写入静默失败。

1. 独立事务写入错误日志 #

单独开启DAO工作区事务写入日志，避免被外层窗体事件的事务回滚影响，同时用DBEngine(0)(0)替代CurrentDb获取稳定的数据库实例，所有赋值操作加Nz兜底：

Public Function RuntimeError(Location As String, ErrNumber As String, ErrSource As String, ErrDescription As String, ErrHelpFile As String, ErrHelpContext As String, ErrLastDLLError As String)
    On Error GoTo Fehler
    Dim wrk As DAO.Workspace
    Set wrk = DBEngine.Workspaces(0)
    Dim LUKSVDB_Fehler As DAO.Recordset
    ' 加dbFailOnError参数强制抛出所有写入错误，避免静默失败
    Set LUKSVDB_Fehler = DBEngine(0)(0).OpenRecordset("LUKSVDB_Fehler", dbOpenDynaset, dbSeeChanges + dbFailOnError)
    
    ' 开启独立事务，和外层业务逻辑事务隔离
    wrk.BeginTrans
    LUKSVDB_Fehler.AddNew
    LUKSVDB_Fehler!Location = Location
    LUKSVDB_Fehler!ErrNumber = ErrNumber
    LUKSVDB_Fehler!ErrSource = ErrSource
    LUKSVDB_Fehler!ErrDescription = ErrDescription
    LUKSVDB_Fehler!ErrHelpFile = ErrHelpFile
    LUKSVDB_Fehler!ErrHelpContext = ErrHelpContext
    LUKSVDB_Fehler!ErrLastDLLError = ErrLastDLLError
    LUKSVDB_Fehler!Person = Nz(User, "未知用户")
    LUKSVDB_Fehler!Zeit = Now()
    If ErrDescription <> "Folgefehler" Then 
        Dim userInput As String
        userInput = InputBox("Es ist ein Fehler aufgetreten. Kannst du noch ein paar Angaben machen, was du gemacht hast, um die Fehlerbehebung zu erleichtern? Details für den Entwickler: " & Location & " " & ErrNumber & " " & ErrSource & " " & ErrDescription & " " & ErrHelpFile & " " & ErrHelpContext & " " & ErrLastDLLError & " " & User, "Systemfehler")
        LUKSVDB_Fehler!Nutzererklärung = Nz(userInput, "")
    End If
    LUKSVDB_Fehler.Update
    ' 强制提交日志事务，不会被外层回滚影响
    wrk.CommitTrans
    
    LUKSVDB_Fehler.Close
    Set LUKSVDB_Fehler = Nothing
    Set wrk = Nothing

Done:
    Exit Function
Fehler:
    On Error Resume Next
    wrk.Rollback
    On Error GoTo 0
    MsgBox "Die Fehlermeldung konnte nicht gespeichert werden. Bitte diese Informationen dem Entwickler mitteilen: " & Location & " " & ErrNumber & " " & ErrSource & " " & ErrDescription & " " & ErrHelpFile & " " & ErrHelpContext & " " & ErrLastDLLError & " " & User & ". Fehler beim Speichern: " & Err.Number & " " & Err.Source & " " & Err.Description & " " & Err.HelpFile & " " & Err.HelpContext & " " & Err.LastDllError, vbCritical
    DoCmd.Quit
End Function

2. 强制抛出写入错误 #

打开记录集时添加dbFailOnError参数（上面代码已经包含），只要写入操作违反任何表约束（字段长度、索引冲突等），都会直接触发运行时错误，进入你的错误处理分支，不会再出现静默丢数据的情况。

3. 兜底日志方案（可选） #

如果需要极端场景下也不丢失错误信息，可以在错误处理分支新增本地文本日志的写入逻辑，把错误信息输出到Access文件同目录的日志文件中，作为数据库写入失败的兜底。

内容的提问来源于stack exchange，提问作者Benjamin Krausse DB