エラートラップ処理内での、エラーの無視

解決

Hoo 2005-02-01 20:28:13 No: 119336

VB6でエラートラップをかけているのですが、そのエラートラップ処理内で起きたエラーを無視したいのですが、そのような事はできますか？
現在はエラートラップ処理内で on error resume nextを呼んでいるのですが、エラーは無視されません。
よろしくお願い致します。

private sub test()
on error goto error1
・
・
exit sub

error1:
  on error resume next
   ・
   ・
  exit sub
end sub

GOD 2005-02-01 20:57:41 No: 119337

エラートラップ内の処理を関数化してやればできます。
※他にも方法があるのかな？

Private Sub Command1_Click()
On Error GoTo ErrHandle
    Err.Raise 51
    Exit Sub
ErrHandle:
    Debug.Print "ErrHandle通過"
    Call ErrTest
End Sub

Public Sub ErrTest()
On Error Resume Next
Err.Raise 51
End Sub

Hoo 2005-02-01 21:49:03 No: 119338

エラー処理を関数にすれば、いけました。
有難うございました。m(__)m

だっちゃん 2005-02-02 02:11:31 No: 119339

既に解決されているみたいですが・・・。
Clearメソッドでエラーの設定値を初期化する方法もありかも・・・。

※GODさんのプログラムをお借りすると以下の感じです。

Private Sub Command1_Click()
On Error GoTo ErrHandle
    Err.Raise 51
    Exit Sub
ErrHandle:
    Err.Clear
    Debug.Print "ErrHandle通過"
End Sub