Opção Error Trapping/Interceptação de erro

Olá a todos,
Partilho exemplo para alterar a opção Error Trapping (Interceptação de erro).



Pode ser muito util para alterar a opção que só tiver o Runtime instalado.

Código utilizado:

Código:

Option Compare Database
'Alvaro Teixeira (ahteixeira) 2017 para MaximoAccess

Private Sub Form_Open(Cancel As Integer)
    Me.xErros = Application.GetOption("Error Trapping")
End Sub

Private Sub xErros_BeforeUpdate(Cancel As Integer)
    Application.SetOption "Error Trapping", Me.xErros
    MsgBox "Alteração efetuada.", vbInformation, ""
End Sub


Abraço