Access　VBA　指定データ取込/フォームに実装　エラー：オブジェクトが開いている場合は、

よろしくお願いいたします。
フォーム画面にボタンとテキストボックスを用意して、
hogeFrom とhogeToとしたテキストボックスに検索条件を入力し、
ボタンを押下すると、accessで作ったテーブル（ChargeInfo）のデータ（接続文字列）でSQLサーバにあるテーブル”hogehogeCountry”の内容を取得し、フォーム上のリストに反映されるようにしたいです。

本日同様の質問をしておりますが、一から自分で書いたコードのため、エラーが出るたびに進めなくなり、解決するたびに新しいエラー内容を記載し、再質問をさせていただいております。
（こういった投稿の仕方が違反であれば、教えていただければ幸いです）

まずは、表題のエラー（”オブジェクトが開いている間は、操作は許可されません”）を解決したいです。
有識者の方々お知恵を貸してください。

※備考
・リストに表示したいデータは、SQLサーバの”hogehogeCountry”に格納されている
・SQLサーバへの接続文字列は、同一Accessファイル内のテーブルに格納していて、strSqlとして使用したい

Private
1' On Error GoTo Err_データ取得_Click
2
3Dim invFrom As Variant
4Dim invTo   As Variant
5
6invFrom = Me.invoiceFrom.Value
7invTo = Me.invoiceTo.Value
8
9   If IsNull(invoiceFrom) And IsNull(invoiceTo) = True Then    '検索条件が未入力の場合
10
11        MsgBox "検索条件を指定してください"
12       Exit Sub
13   
14
15 End If
16//（もしテキストボックスのいずれか（もしくは両方）に、検索条件として値が入っていた場合）
17以下より実現したい内容と、そのコード。
18・データを取得してリスト表示
19・データは、SQLサーバの”hogehogeCountry”に格納されている
20・SQLサーバへの接続文字列は、同一Accessファイル内のテーブルに格納していて、strSqlとして使用する
21
22   If Not IsNull(invoiceFrom) Or IsNull(invoiceTo) = True Then   'いずれかが入力されている場合
23
24
25
26’データをリストに表示
27Dim objCon      As New ADODB.Connection
28Dim objRs       As New ADODB.Recordset
29Dim strSql      As String
30   
31   Set objCon = Application.CurrentProject.Connection
32
33   strSql = "SELECT ID, COL1 FROM ChargeInfo WHERE ID = 1"
34   
35   objCon.ConnectionString = strSql //ここでエラー
36   objCon.Open
37   objRs.Open "hogehogeCountry", objCon, adOpenKeyset, adLockOptimistic
38   
39   Set Me.Recordset = objRs
40   
41   objRs.Close
42   objCon.Close
43   
44   Set objRs = Nothing
45   Set objCon = Nothing
46   
47 End If

ogaaaan

2016/03/10 08:36

コード部分は貼り付けるときに[</>]ボタンでくくると見やすくなるのです。

nekomura

2016/03/10 09:04 編集

ogaaaan様ありがとうございます。慣れておらず失礼いたしました。お待ちください。

ogaaaan

2016/03/10 09:02

あ、いい感じだー！あざっす！

行動規範の内容に同意します

回答1件

ベストアンサー

ちょっとAccessは手元にないし、記憶もないので、正解をお教えすることはできないんですが
ConnectionString は実行したいSQLを設定するとこではなく接続するための文字列を設定するとこです。

投稿2016/03/10 08:43

yunn

総合スコア144

nekomura

2016/03/10 09:23

なるほど。。。まだまだ知識不足でお恥ずかしいです。もし可能であれば、下記内容もご教示いただければ幸いです。 strSql = "SELECT ID, COL1 FROM ChargeInfo WHERE ID = 1" objCon.ConnectionString = strSql と、ありますが、このSQL文が取得しようとしているのはテーブル内に記載された接続文字列です。接続文字列が変更になってもコードが修正しやすいように、このような形にしてみたのですが、ConnectionStringでは、SQLの取得先までは参照できないということでしょうか？また、エラーの一文をコメントアウトしてみたところ、一段下のコードにエラーが移り、エラー内容は同じく ”オブジェクトが開いている間は、操作は許可されません” でした。よろしくお願いいたします。。。

yunn

2016/03/10 09:46

SQLを実行しないとデータは持ってこれないので… 先述の通り、Accessがないので試せないんですが。 Access内のテーブルからデータを引っ張る処理（Executeとかかな）をして変数に接続文字列を保存して、一旦、objConを初期化。その後、改めて、objConを先ほどの接続文字列を入れた変数を使ってSqlServerに接続して、その後の処理を…という流れになりますかね。あ…もちろんobjConを使いまわさずに他の変数作っていいんですけど。説明下手で申し訳ないです。。。

nekomura

2016/03/10 10:59

yunn様なるほど、一旦変数に接続文字を保存するんでね。ただ、コードの記述がよくわからず今試行錯誤中です。ヒントをいただけて感謝です、ありがとうございます。

nekomura

2016/03/10 13:10 編集

yunn様お世話になっております。ご回答いただいたアドバイスですが、やはり私の技術ではコーディングすることができなかったため、 yunn様のご回答を参考として本質問内容を編集させていただき、新しく質問をあげたいと存じます。＞ConnectionString は実行したいSQLを設定するとこではなく接続するための文字列を設定するとこです。私が理解できなかったところを明確に指示してくださったので、ベストアンサーとさせていただきます。ありがとうございました。もし、このような質問の仕方はルール違反などあればご教示ください。よろしくお願いいたします。

yunn

2016/03/10 13:05

いやいや、ビミョーな回答でごめんなさいね(^_^;) ルール違反かどうかはわからないですけど、質問すべきことがわかって、書き直すのはいいんじゃないのかなぁ？頑張ってくださいね

nekomura

2016/03/11 05:51

yunnさん。いろいろとありがとうございます！

行動規範の内容に同意します