MS Access回滚错误处理回滚

如何解决MS Access回滚错误处理回滚

在我的程序中，我有一个功能可以执行三件事：在某些表中插入多个插入物，创建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中尚未提交的数据。

我该如何解决？

解决方法

让您的函数返回成功或不成功：

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 & "," & 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