error-handling - MS Access回滚错误处理回滚

Question

在我的程序中，我有一种功能，它可以完成三件事:在某些表中插入多个插入物，创建pdf文档，并发送带有附件中创建的文档的电子邮件。我在解决错误处理时遇到问题。

    DAO.DBEngine.BeginTrans
    On Error GoTo failed
    
    CurrentDb.Execute "INSERT INTO tblClaimStatus ( ClaimID, ClaimStatusTypeID, UserID) " & _
        "VALUES (" & claimId & ", 2," & CurrentUserId & ");", dbFailOnError
    CurrentDb.Execute "Insert INTO tblClaimPartner (ClaimId, OriginalDeadline, NachfristDeadline) " & _
        "VALUES (" & claimId & ", '" & Me.OriginalDeadlineTextbox & "', '" & Me.NewDeadlineTextbox & "');", dbFailOnError
    
    WriteGraceDocument (claimId)
    SendEmail (claimId)
    DAO.DBEngine.CommitTrans

问题是，如果发生任何故障，我希望能够回滚SQL事务。但是我还需要Subs WriteGraceDocuement和SendEmail中尚未提交的数据。
我该如何解决？

Answer 1

让函数返回成功或不成功:

DAO.DBEngine.BeginTrans

' Validate the values before attempting to insert these.
Success = ValidateInserts(claimId, 2, CurrentUserId, Me!OriginalDeadlineTextbox.Value, Me!NewDeadlineTextbox.Value)

If Success Then    
    CurrentDb.Execute "INSERT INTO tblClaimStatus ( ClaimID, ClaimStatusTypeID, UserID) " & _
        "VALUES (" & claimId & ", 2," & CurrentUserId & ");", dbFailOnError
    CurrentDb.Execute "Insert INTO tblClaimPartner (ClaimId, OriginalDeadline, NachfristDeadline) " & _
        "VALUES (" & claimId & ", '" & Me.OriginalDeadlineTextbox & "', '" & Me.NewDeadlineTextbox & "');", dbFailOnError
End If
    
If Success Then
    Success = WriteGraceDocument(claimId)
End If
If Success Then
    Success = SendEmail (claimId)
End If

If Success Then
    DAO.DBEngine.CommitTrans
Else
    DAO.DBEngine.RollBack
End If