Access ODBC ADO接続 実行時エラー「オブジェクト名'hoge'が無効です。」

Question

よろしくお願いいたします。

Accessのフォーム上のボタンイベントで、SQLserverよりテーブルデータを取得するイベントプロシージャを書いています。

取得しようとしているテーブルデータ**「Q_m_kokyaku_shohin」は、実際にはクエリです。**
ODBCでSQLserverより接続したリンクテーブルを、二つ使用して作っています。

しかし、実行時エラーが起きてしまい、下記コードの

  Rs.Open strSQL, Cn, adOpenForwardOnly, adLockReadOnly

に黄色のカーソルがフォーカスされます。

エラー内容は、
「実行時エラー'2147217865(80040e37）;
オブジェクト名'Q_m_kokyaku_shohin'が無効です。」
でした。

デバック→ステップインでコードを追っていった所、接続文字列は問題無く変数に代入されています。
その上で、原因及び修正方法を調べても解決にいたりません。
有職者の皆様にお知恵をいただきたく存じます。

Private Sub クエリ取得_Click()

    Dim Cn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim strSQL As String
    Dim strConnectionString As String  'SQLServer接続文字列
    
    
    strConnectionString = CStr(DLookup("connectionString", "接続文字列テーブル", "ID= 2"))
 //Access自身のテーブルに、接続文字列を入れて、その値を変数に代入しています
    
    strSQL = "SELECT * FROM Q_m_kokyaku_shohin"
    strSQL = strSQL & "  WHERE Q_m_kokyaku_shohin.顧客番号 like '*%'"
    
    Cn.ConnectionString = strConnectionString
    Cn.Open
    Rs.Open strSQL, Cn, adOpenForwardOnly, adLockReadOnly //エラーのデバッグポイントはここ
    
    Set Me.Recordset = Rs

    
    Rs.Close
    Cn.Close
    
    Set Rs = Nothing
    Set Cn = Nothing
    


End Sub

また、このクエリをの全データの中から、任意の一文字の前方一致検索に対応するデータを
取得したいです。

初めの一文字はユーザーが入力する任意の値を想定している為、「＊」を使用しています。
＊から始まる任意の値です。

この記述の仕方は合っているのでしょうか…。
ネットで調べると、「初めがAの前方一致検索」など、特定のを使う方法しか出てこないもので…。
細かい部分の記述の仕方がわからず困っています。
併せてお答え頂ければ幸甚です。

Comments

[kaz.Suenaga]

WHERE Q_m_kokyaku_shohin.顧客番号 like '*%' の部分の意図は、*ので始まるもの、%で終わるもの、どちらのつもりですか。

[nekomura]

suenaga様
いつもお世話になっております。
「*ので始まるもの」という意図です。
よろしくお願いいたします。

[kaz.Suenaga]

もう1点、「顧客番号」というフィールドの型は文字列で間違いないですか。

[nekomura]

suenaga様
ご指摘ありがとうございます。
「顧客番号」は、SQLserver上でint方、Accessのクエリでは数値型でした…orz
ちなみに、
---strSQL = "SELECT * FROM Q_m_kokyaku_shohin"
strSQL = strSQL & " WHERE Q_m_kokyaku_shohin.顧客番号 like '*%'"
---
の、二行目をコメントアウトしても当該エラーは出ますが、この場合も文字列でないことに何か関係はありますか。
お教えいただけると幸いです。
いつもありがとうございます。

[kaz.Suenaga]

この後回答も書いてしまいますが、Q_m_kokyaku_shohin で書かれている中身にワイルドカード（ * ）が含まれている条件式がありませんか。

[nekomura]

Suenaga様
お世話になっております。
Q_m_kokyaku_shohin のクエリをデザインビューで見た時の、下部にある表の部分に何か条件式があるかという意味でしょうか。
もしそうであれば、特に条件式は指定しておりません。
どうぞよろしくお願いいたします。

[kaz.Suenaga]

クエリの構成がわからないので見当違いかもしれませんが、そのクエリで利用しているデータは更に別のクエリを利用していたりしませんか（つまりクエリを使ったクエリになっていませんか）。

そのクエリ［Q_m_kokyaku_shohin］からデータテーブルにたどり着くまでに経由する全てのクエリでワイルドカードが使われていないかが気になります。

[nekomura]

suemaga様
当該クエリは、リンクテーブルを二つ合わせたもので、クエリを使ったクエリではありません。
初心者の為、
＞データテーブルにたどり着くまでに経由する全てのクエリでワイルドカードが使われていないかが気になります。
の辺りがいまいち理解できないのですが、クエリを作った際に何か条件式をつけていないか？ということですよね。
ご回答併せて、少し落ち着いて調べてきます。
まだ自分では方向性を広げて考えることが出来ていないので、たくさんのご指摘・アドバイスは本当に助かります。ありがとうございます。

Answer 1

WHERE句をコメントアウトしても同様のエラーという事は、クエリ［Q_m_kokyaku_shohin］を開く時点でエラーが発生していると考えられます。

まずはクエリ［Q_m_kokyaku_shohin］が適切に開けるようにしてみましょう。

随分前の記憶なので曖昧な書き方になります。
ADOを利用している場合、Accessのクエリで利用しているワイルドカード「*」「?」と、一般のSQL（ANSI規格）でのワイルドカード「%」「_」が異なっているため、適切にクエリが実行できないことがあります。
クエリ側にワイルドカードが含まれている場合はそれをなくせないか、VBA内でWHERE句を作ることで回避できないかをご検討ください。

ひとまず概要までですが。

---

書いてから気づきましたが、違いますね。

［Q_m_kokyaku_shohin］はAccessのクエリですよね。
コネクションCnはSQLServerに対するものですよね。

そうだとして。
SELECT * FROM Q_m_kokyaku_shohin では、［Q_m_kokyaku_shohin］はSQLServer側になければいけません。

まず、SQLServerで正常に実行できるSQL文を作ってみましょう。

Comments

[nekomura]

Suenaga様
>［Q_m_kokyaku_shohin］はAccessのクエリですよね。
>コネクションCnはSQLServerに対するものですよね。
はい、そうです。

>まず、SQLServerで正常に実行できるSQL文を作ってみましょう。
なるほど…いわれて落ち着いて考えてみれば確かに。
早速作ってきます！
真摯なアドバイスに感謝いたします。

[nekomura]

suenaga様
SELECT * FROM Q_m_kokyaku_shohin　→　SELECT * FROM リンクテーブル名
と書き直したのですが、エラー内容はオブジェクト名が変わるのみで同じでした…orz
何か、前後の記述が良くないのでしょうか。（ADO接続文など）
一旦、自身で整理して再度質問してみたいと思います。

たくさんのヒントや方向性を頂き大変ためになったので、ベストアンサーとさせていただきます。

Answer 2

一度、エラートラップを入れてみて、エラー箇所を特定してみてはどうでしょうか？

Private Sub クエリ取得_Click()
On Error GoTo myError '★追加
    Dim Cn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim strSQL As String
    Dim strConnectionString As String  'SQLServer接続文字列


    strConnectionString = CStr(DLookup("connectionString", "接続文字列テーブル", "ID= 2"))
 //Access自身のテーブルに、接続文字列を入れて、その値を変数に代入しています

    strSQL = "SELECT * FROM Q_m_kokyaku_shohin"
    strSQL = strSQL & "  WHERE Q_m_kokyaku_shohin.顧客番号 like '*%'"

    Cn.ConnectionString = strConnectionString
    Cn.Open
    Rs.Open strSQL, Cn, adOpenForwardOnly, adLockReadOnly //エラーのデバッグポイントはここ

    Set Me.Recordset = Rs


    Rs.Close
    Cn.Close

    Set Rs = Nothing
    Set Cn = Nothing


    Exit Sub '★追加
myError: '★追加
    MsgBox "エラー番号:" & Err.Number & vbCrLf & "エラーの種類:" & Err.Description, vbExclamation '★追加
End Sub

Comments

[nekomura]

skuromaku様
お世話になっております。
>エラートラップを入れてみて、エラー箇所を特定してみてはどうでしょうか？
このようなエラーの特定の仕方は知らなかったので、とても勉強になりました！
また、丁寧なサンプルコードもありがとうございます！早速ためさせて頂きました。
結果は、
「エラー番号2147217865
エラーの種類：オブジェクト名'Q_m_kokyaku_shohin'が無効です。」
でした…。

Answer 3

環境がなく確認できませんが、Cn.Openでエラーにはなっていませんか？
（エラーが検知できるのかはわかりませんが・・・）
またIDとパスワードの指定がなさそうですが、接続文字列に含まれているということでしょうか？

Comments

[nekomura]

ttyp03様
ご回答ありがとうございます。

>環境がなく確認できませんが、Cn.Openでエラーにはなっていませんか？
Cn.Openの部分ですが、デバックモードで確認したところ「Cn」には接続文字列の値が代入されているのでエラーでは無いのかと…（すみません、初心者なもので絶対にエラーでないかはわからないのですが）。

＞またIDとパスワードの指定がなさそうですが、接続文字列に含まれているということでしょうか？
はい、Access自身のテーブルに、接続文字列を入れて、その値を変数に代入しています（strConnectionString）。
windows認証の接続文字列なため、IDとパス表記はありません。
また接続文字列には、誤りはありません。

以上踏まえてまたおわかりな事がございましたらご教示いただきたく存じます。
どうぞよろしくお願いいたします。

Answer 4

クエリ名Q_m_kokyaku_shohinが間違っているということはないでしょうか？

また、問題を切り分けるために

strSQL = "SELECT * FROM Q_m_kokyaku_shohin"
strSQL = strSQL & " WHERE Q_m_kokyaku_shohin.顧客番号 like '*%'"

上記を下記のようにしてもエラーは出ますか？

strSQL = "SELECT * FROM Q_m_kokyaku_shohin"

Comments

[nekomura]

skuromaku様
いつもお世話になっております。
ご回答ありがとうございます。
>上記を下記のようにしてもエラーは出ますか？
>strSQL = "SELECT * FROM Q_m_kokyaku_shohin"
はい、LIKE句のほうはコメントアウトして実行したのですが、エラー内容は同じでした…。
また、クエリ名に誤りはありませんでした。
以上、踏まえてさらに何かご教示がいただけるようでしたらまたよろしくお願いいたします。