よろしくお願いいたします。
①Accessのフォームを
・フォームヘッダー
・詳細
・フォームフッター
に分けて、ヘッダーの部分に「クエリ取得」というボタンを配置しています。
②また、SQLserverからODBC接続で、Accessにリンクテーブルを二つ作り、
それらを合わせたものを「Q_uriage」という名としたクエリを作っています。
①、②と併せて実現したいことは、
●ボタンをクリック→クエリの内容(つまり、リンクテーブルの内容)を取得
●一覧でフォームフッターに表示
です。
ADO接続についてや、SQLserverの接続、jetテーブルの接続など色々と調べてもわからなかったことは、下記二点です。
●ソースコード※1部分の記述がCurrentProject.Connectionで良いのか疑問なこと、(リンクテーブルの場合、何か違う記述をするのか?が不明です)
●ボタン押下後、実行時エラー2147217900が出ます。
'[SQLステートメントが正しくありません。'DELETE','INSERT','PROCEDURE','SELECT',または'UPDATE'を使用してください。]'
ソースコード※2の部分がデバックで黄色くなります。
Private Sub クエリ取得_Click() Dim Cn As ADODB.Connection Dim Rs As ADODB.Recordset Set Cn = CurrentProject.Connection ※1'//ここが、CurrentProjectで良いのか疑問' Set Rs = New ADODB.Recordset Rs.Open "Q_uriage", Cn, adOpenStatic, adLockOptimistic ※2 '//Q_uriageは、ODBC接続でSQLserverから取得した二つのリンクテーブルを合わせて作ったクエリ' Rs.Close Cn.Close Set Rs = Nothing Set Cn = Nothing End Sub ※3 //上記のソースを、フォームフッターに一覧表示させたい
足らないところが多々あるのは承知ですが、有職者の皆様のお知恵をお借りしたく存じます。