エラーのリトライ (ID:89179)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Sub b() On Error Goto error_end Call a Exit Sub error_end: Msgbox "エラーです" End Sub Private Sub a() On Error Goto error_end ReRun: (ここでＤＢからレコードセットをオープン） Exit Sub error_end: Err.Clear Goto ReRun End Sub ------------------------------------------ というサブルーチンを書きました。 レコードセット取得時にタイムアウトやデッドロックなどのエラーで、取得に失敗した場合に リトライさせようと思っているのですが、１回目のエラーでは正常にReRunに戻り再度レコードセットを オープンしようとするのですが、２回目のレコードセットの取得に失敗すると、Sub a() から処理が抜け、 「エラーです」のメッセージが表示されてしまいます。 なぜSub a() から処理が抜けてしまうのでしょうか？ どのように直せばリトライを継続できるのでしょうか？