NOME DA ROTINA ATUAL E LINHA DE ERRO


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: NOME DA ROTINA ATUAL E LINHA DE ERRO

DigPol

DIGPOL
DI -

ENUNCIADA !

Postada em 25/08/2010 16:21 hs

Ola a Todos

1º Existe Alguma Forma de Dentro de Uma Rotina eu Pegar o seu Proprio Nome
Por Exemplo:
Private Sub Form_Load()
MsgBox Me.Name & " " & Rotina.Name
End Sub
Ai Teria a Mensagem "Formulario Form_Load"

2º Existe Alguma Forma de Mostrar a Linha Executada que deu Erro
Por Exemplo:
Private Sub Form_Load()
On Error GoTo Erro
MsgBox Me.Name & " " & Rotina.Name
Exit Sub
Erro:
MsgBox LinhaQueDeuErro
End Sub
Ai Teria a Mensagem "MsgBox Formulario Rotina.Name"

Grato

TÓPICO EDITADO

Alfterra

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 08/09/2010 13:36 hs

Ola´.... pega a DLL mztools em http://www.mztools.com/v3/mztools3.aspx que ela inclui um rotina de erro e mostra numa msgbox o local exato, e além disso dá pra vc enumerar as linhas de códico, assim na msgbox vc põe vc pode pegar exatamente a linha q deu erro... ola um exemplo que deixo na rotina de erro do mtzools, assim ao adicionar o rotina ja vem a msgbox com a instrução de pegar a linha:

1170 MsgBox "Error " & Err.Number & " na linha " & Erl & " (" & Err.Description & ") in procedure CMDGRAVAR_CADASTRO_Click of Formulário FormCadastro"

Alfterra

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 08/09/2010 13:38 hs

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR