Correção de erro que fecha o formulário.

Estou precisando de uma grande ajuda eu tenho um sistema em cliente que está dando um problema de fechamento ao exibir mensagens de erro.
Eu queria arrumar uma forma do sistema não fechar quando ocorressem esses erros, de uma forma que o sistema somente informe o erro ou até mesmo oculte e retorne a tela.
Teria como me dar uma ideia de resolver isso?

Williams.

Olá William,

Você está utilizando um código de tratamento de erro:

Exemplo 1:

Private Sub cmdAbrir_Click()
On Error Resume Next ‘Ao ocorrer um erro execute o código a partir daqui
Dim A As Integer

A = InputBox("Qual é o seu nome?")

MsgBox "Seu nome é " & A
End Sub

Exemplo2:

Private Sub cmdAbrir_Click()
On Error GoTo TrataErro ‘Ao ocorrer um erro vá para TrataErro
Dim A As Integer

A = InputBox("Qual é o seu nome?")

MsgBox "Seu nome é " & A

Exit Sub
TrataErro:
If Err.Number = 13 Then
MsgBox "Erro de Conversão de Letra para Número !"
End If

End Sub


Caso não consiga resolver seu problema ainda, posta o seu bd ou parte dele para análise.