ADOでクエリ変更するとエラー(実行時エラー 3265)が出ます。

Question

ADOでクエリを変更するVBAでつまづきました。実行時エラー3265が出ます。mdbを新しく作成して全オブジェクトをインポートしなおしても同様でした。

自己解決しました。エラー発生条件はユニオンクエリでした。通常の選択クエリなら問題ありません。

strSQLはselect文
strQryNameはクエリの名前です

Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command

cat.ActiveConnection = CurrentProject.Connection
cmd.CommandText = strSQL

cat.Views(strQryName).Command = cmd '★ここで、以下のエラーが出ます。

実行時エラー 3265｢要求された名前､または序数に対応する項目がコレクションに見つかりません｣

参照設定で順序など替えてみましたが、同様のエラー。ただし、当該クエリを手作業で操作＝＞動作確認後は1度だけうまく上記のコードは通ります(汗)

アドバイスお待ちしております。

Answer 1

自己解決済みですが、ユニオンクエリを変更したい場合は困りますよね。

DAOなら、ユニオンクエリでも問題なく変更できます。

    Dim qd As DAO.QueryDef

    Set qd = CurrentDb.QueryDefs(strQryName)

    qd.SQL =  strSQL

Comments

[SatoshiM]

そうなんです(汗)まあ、ADOはもう役目を終えたといってもよいのですがまたDAOに戻すのも、、、(苦笑)

Answer 2

書き換え対象のクエリをユニオンクエリから選択クエリに変更すると動作しました。