Ignore error on Transaction Abort

[philip1009]

I have a rule that's encompassed in a single transaction so if an error occurs it will abort and send the model back to it's previous state, but when it's aborted it still generates an error to click out of.  Here's the code sample below:

SyntaxEditor Code Snippet

oTxn=ThisApplication.TransactionManager.StartTransaction(ThisApplication.ActiveDocument,"Add Component")
On Error Goto Abort

'Bulk of Code

Goto EndRule

Abort:oTxn.Abort

EndRule:oTxn.End

Is there a way to evoke the oTxn.Abort line without generating an error pop-up?

Thanks in advance.

Philip Martick
Inventor 2018 Pro, AutoCAD 2018, Autodesk Vault Basic 2018
Windows 10 Pro
2X Intel Xeon E5-2630 v4 @ 2.20GHz
16.00 GB of RAM
NVIDIA Qudaro M2000 

[MechMachineMan]

It's not entirely clear what error you are having to click out of....

Sub Main()
    oTxn=ThisApplication.TransactionManager.StartTransaction(ThisApplication.ActiveDocument,"Add Component")
    On Error Goto Abort

'Bulk of Code

    Goto EndRule
  Abort:
    oTxn.Abort
    Exit Sub
  EndRule:
    oTxn.End

End Sub

[philip1009 · Accepted solution]

I just figured out that you don't need to have a Transaction End after a Transaction Abort, I think trying to end a transaction after it's been aborted was generating the error.  The end of the rule just had to be rearranged like so:

SyntaxEditor Code Snippet

oTxn=ThisApplication.TransactionManager.StartTransaction(ThisApplication.ActiveDocument,"Add Component")
On Error Goto Abort

'Bulk of Code

oTxn.End
Goto EndRule
Abort:oTxn.Abort
EndRule:

On an error, the transaction is aborted and the rule ends, otherwise the code completed successfully and the transaction ends.