|
かなり進んだ時点でのレスで申し訳ありません。
>------------------------------------------------------------------------------------
>エラー箇所
>「rs.Open "SELECT DISTINCT T_CODE FROM Q_支払明細書用", CurrentProject.Connection, adOpenStatic, adLockReadOnly」
>
>エラー内容
>「一つ以上の必要なパラメータの値が設定されておりません」
まず、エラーの原因ですが、ADOでパラメータクエリを開く時は、Parametersを設定する必要があります。
それをせずに開くと上記のエラーになります。
Access VBA:ADOでパラメータクエリーを実行してレコードセットを取得する方法
billyboy.blog81.fc2.com/blog-entry-159.html
今回の場合は、クエリには抽出条件を設定せずに、コードで設定したほうが楽になると思います。
また、レポートをプレビューが開いて閉じてを繰り返すのも無駄です。
クエリのSQLを直接書き換えて、DoCmd.OutputTo するのがお勧めです。
参考URL
レポートをグループ毎に分割してPDFファイルとして保存したい - hatena chips
hatenachips.blog34.fc2.com/blog-entry-380.html
|
|