ACCESSのVBAでPrivate Sub ～endsubの後の区切り線が消えてしまう

ACCESSでかなり長いVBAのプログラムを書いてあるのですが不定期にエラーが出ます。デバッグ画面で確認するとendsubで区切られたはずのプログラムが区切り線がなくなっていてアクションを起こしてくれません。これってACCESSのバグですか？あるいは私の書き方に無理があるのでしょうか？

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2005/05/02 13:01

まず、End Sub が重なったら、実行時エラーにはなりませんね。

たぶん、原因は、メモリのオーバーフローではありませんか？遠因では、「長いVBAのプログラム」というのが問題ではないでしょうか？

どのような内容かは分かりませんが、Object を放置してあって、その実行を重ねて使ってしまう。例えば、RecordSet をそのまんまにしてしまうとか？また、Public ステートメントにObjectを宣言し、Close していないとか、やってはいけないミスですね。便利だからとグローバル変数を安易に書く人がいますが、私は、慎重に使って多用しないようにしています。

まして、ループの中で、Object の設定をするなんていうのは、論外ですが、時々見かけます。

それはともかくとして、マクロならともかく、「長いVBA」コードというのは、更新も利かず、エラーでも迷宮入りになりかねませんから、各役割をパーツにして、サブルーチン化し、メインを設けて構造化してください。私の場合は、PCが古いので、サブルーチンの中で、その都度、Objectの開放をして負担を減らしています。掲示板などのサンプルは、一本で書くのが慣例ですが、実務では分けるようにしています。

この回答へのお礼

たぶんおっしゃるとおりです。そうじゃないかなと思っていたことを的確に指摘していただきましてありがとうございました。もしかしたら他の要因があるのかな？と思ってましたがこれですっきりしました。作り直しを考えます。

お礼日時：2005/05/02 13:43

No.1 回答者： BIGT 回答日時： 2005/05/02 09:53

Private Sub ～ End Sub ～ End Subのように、単独でEnd Subが存在していませんか？