Q eu saiba para vc capturar os erros tem q tratar em todos os eventos q vc vai usar... vc pode jogar este erro para ser tratado no módulo assim:
Private Sub Text1_Change()
On Error Goto Erro
Erro:
if err.number <> 0 then Call TrataErro(err.number,err.description,me.name)
Num módulo
Public Sub TrataErro(byval ErrNumber as Long,byval ErrDescription as String,byval FormName as String)
Select Case ErrNumber
Case 3021
msgbox "Registro não encontrado"
case else
msgbox "Erro indefinido na tela " & FormName & vbcrlf & errdescription & vbcrlf & ErrNumber
End Select
End Sub
+- assim... entendeu?
Não sei se é possível, sem tratar, desviar o erro pra algum lugar... bom talvez algum colega saiba mas vc pode fazer como no exemplo q mostrei...
qq dúvida é só postar
t+
