すみません。各構文に &_ に追加してコピーして、こちらに張り付けたのですが消えてしまっているようです。
そうでしたか。
この掲示板はマークダウン記法が使えますので、コードを掲載する場合、コードブロック内に記述すると、いいでしょう。
下記で使い方はを解説してますので、ご参考に。
今度は Set rs = CurrentDb.OpenRecordset(StrSQL) のところで
実行時エラー3061 パラメータが少なすぎます。1をしてください になってしまいました。お願いたします
StrSQLのSQL文が間違っているということですね。そのSQL文をクエリにデザインビューに貼り付けて開くことができるか確認してみてください。
通報 ...