Olá a Todos 1º Existe Alguma Forma de Dentro da Rotina 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 Gerou Erro. Por Exemplo:
Private Sub Form_Load()
On Error GoTo Erro
MsgBox Me.Name & " " & Rotina.Name
Exit Sub
Erro:
MsgBox LinhaQueGerouErro
End Sub Ai Teria a Mensagem "MsgBox Formulario Rotina.Name" Grato Diogo Portela