- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：ｖｂａを修正するとＡＤＯが実行できなくなる。）
VBA修正後にADOが実行できなくなる問題の解決方法
このQ&Aのポイント
- VBA修正後にADOが実行できなくなる問題について解説します。アクセス2003やVistaを使用している場合に発生する可能性があります。
- 問題が発生した際に表示されるエラーメッセージや原因について詳しく説明します。
- 問題の解決については、いくつかの情報源を参考にしましたが、完全な解決策は見つかっていません。
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
確認ですが、 ＞RS.Open "Qタイトル", CN, adOpenStatic, adLockPessimistic ではなく、 RS.Open "Qタイトル", CurrentProject.Connection, adOpenStatic, adLockPessimistic でエラーになるわけですね？
その他の回答 (1)
- cistronezk
- ベストアンサー率38% (120/309)
回答No.1
http://www.accessclub.jp/ado/04.html によると、 ＞CurrentProjectオブジェクトは、現在使用中のデータベースを表すオブジェクトです。 つまり、CurrentProject.FullNameはすでに「Open済み」ということになります。それをまた「Open」しようとしていることに原因があると思われます。上記URLを参考にすれば、 ＞CN.Open "Provider=・・・" はナシにして、 RS.Open "Qタイトル", CurrentProject.Connection, adOpenStatic, adLockPessimistic のみでどうでしょう？
質問者
お礼
早速のご回答ありがとうございます。 なるほど。なんだかわかりました。 ちなみに CN.Open "Provider=・・・"をなしにして いきなり RS.Openにすると "この操作を実行するために接続を使用できません。このコンテキストで閉じているかあるいは無効です。" となってしまいます。 これまたなんででしょうね？
お礼
失礼しました。 CurrentProject.Connection, adOpenStatic, adLockPessimistic でうまくいきました。 再度有難うございます。