问题描述
在我的程序中,我有一个功能可以执行三件事:在某些表中插入多个插入物,创建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