COMO SABER QUAL A LINHA DO CODIGO ESTA DANDO ERRO?
Obrigado luis, otima explicação, só completando:
link do MZTools
http://www.mztools.com/v3/downloadvb6.aspx
link do MZTools
http://www.mztools.com/v3/downloadvb6.aspx
1 - Use uma ferramenta chamada MZTools (Você acha ela aqui)
2 - Clique em [Ô]INSERIR NÚMERO DE LINHA[Ô]
3 - Aplique a seguinte função em seus procedimentos, exemplo:
Comando:
Sub Main()
[ô]No cabeçalho do comando coloque:
On Error GoTo Main_Error
[ô]No rodapé coloque:
On Error GoTo 0
Exit Sub
Main_Error:
MsgBox [Ô]Erro Nº:[Ô] & Err.Number & Chr(13) & [Ô]Descrição: [Ô] & Err.Description & Chr(13) & [Ô]Linha: [Ô] & Erl & [Ô][Ô], vbApplicationModal + vbCritical, [Ô]ATENÇÃO - ERRO NO SISTEMA[Ô]
End Sub
Err.Number: Número do erro
Err.Description: Descrição do erro
Erl: Número da linha que que o erro
Caso a linha não tenha um número , ele irá te mostrar o número da linha acima.
2 - Clique em [Ô]INSERIR NÚMERO DE LINHA[Ô]
3 - Aplique a seguinte função em seus procedimentos, exemplo:
Comando:
Sub Main()
[ô]No cabeçalho do comando coloque:
On Error GoTo Main_Error
[ô]No rodapé coloque:
On Error GoTo 0
Exit Sub
Main_Error:
MsgBox [Ô]Erro Nº:[Ô] & Err.Number & Chr(13) & [Ô]Descrição: [Ô] & Err.Description & Chr(13) & [Ô]Linha: [Ô] & Erl & [Ô][Ô], vbApplicationModal + vbCritical, [Ô]ATENÇÃO - ERRO NO SISTEMA[Ô]
End Sub
Err.Number: Número do erro
Err.Description: Descrição do erro
Erl: Número da linha que que o erro
Caso a linha não tenha um número , ele irá te mostrar o número da linha acima.
Valeu Gente!!! Perfeito!! Funcionou Blz!! OBRIGADO.
Tópico encerrado , respostas não são mais permitidas