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

Destinado a postagens de exemplos em Microsoft Access (código aberto) por todos os utilizadores cadastrados.
Não são permitidos exemplos sem acesso à estrutura.
Não são aceitos exemplos com a extensão em .EXE

Moderador: Avelino Sampaio

Avatar do usuário
ahteixeira
Mensagens: 38
Registrado em: 07 Jun 2015, 18:51
Localização: Porto - Portugal

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

Mensagempor ahteixeira » 24 Mai 2017, 01:53

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


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

Código utilizado:

Código: Selecionar todos

Option Compare Database
'Alvaro Teixeira (ahteixeira) 2017

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
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Voltar para “Biblioteca de exemplos Ms Access”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante