『実行時エラー″7" メモリが不足しています』のエラーをエラー処理で終了させるには？

でこぽん 2002-04-02 20:36:14 No: 75465

『実行時エラー″7" メモリが不足しています』のエラーをエラー処理で終了させたいのですが、可能ですか？
自分でエラー処理を書いてみても、エラー処理を実行してくれないのです。どうしたらいいでしょう。ご教授願います。簡単すぎてすみません。

書いてみたコード
Private Sub cmd_A_Click()

    On Error GoTo ErrorShori

    Load frm_１２３   ←ここで実行時エラー７が発生

       〜処理〜
          ・
          ・
       exit sub

ErrorShori:
MsgBox "実行できません。"

end sub

たかみちえ URL 2002-04-02 23:13:14 No: 75466

新しいフォームを開こうとして、
それが原因でメモリ不足になりそうなときは、
On Error Resume Next
なら、できるようです。
他の原因でならわかりませんけど…。

Ｂｏｎ 2002-04-03 21:09:40 No: 75467

ErrorShori:
MsgBox "実行できません。"
Resume Next <--- この１行を追加すれば解決すると思います。

MsgBoxが不要の場合は、
On Error GoTo ErrorShori <--- ここを、On Error Resume Next に
変更すれば解決すると思います。