Access VBA SQLで0埋めをしたい

Question

Access2013　32bit（Windows10 64bit ver.20H2）を勉強中の初心者です。
SQLを実行する際エラーになってしまい処理ができません。

自分なりに関数など調べてみたつもりなのですが、解決しきれませんでした。
ご教示のほどよろしくお願いします。

前提・実現したいこと

テーブルに入っている3～7桁の数字を、
1.　7桁に統一（左側に0をつける：0000311のような）
2.　前5桁、後2桁に分けて各カラムに格納（00003，11に分けたい）

発生している問題・エラーメッセージ

実行時エラー'3067'
クエリの入力には、1つ以上のテーブルまたはクエリが必要です。

該当のソースコード

  '▼1. DB接続準備
  Dim SQL As String

  '▼2. SQL
  SQL = ""
  SQL = SQL & "INSERT INTO 新テーブル名" & vbCrLf '-- ◇追記部分
  SQL = SQL & "       SELECT 数字," & vbCrLf
　SQL = SQL & "              Left(Format([数字],'0000000'),5) AS 前5桁," & vbCrLf
  SQL = SQL & "              Right(Format([数字],'0000000'),2) AS 後2桁" & vbCrLf
  SQL = SQL & "         FROM テーブル名" & vbCrLf

  '▼挿入実行
  DoCmd.RunSQL SQL  '-- ここでエラー

※上記変数「SQL」に格納されたSQL文を追記します。

INSERT INTO 新テーブル名
       SELECT 数字,Left(Format([数字],'0000000'),5) as 前5桁,
              Right(Format([数字],'0000000'),2) as 後2桁
         FROM テーブル名

Comments

[sousuke]

変数SQL に入っている文字がおかしくないですか？vbaが提示の通りなら
「WrkT02_ロット№」という文字は出るはずがないと思います。

またinsert into 新テーブル名(数字,前5桁,後2桁)
のようにテーブル名の後ろにかっこでデータを格納するフィールド名を
selectに対応させるとどうなりますか？

[nyk.]

>変数SQL に入っている文字がおかしくないですか？
申し訳ありません、単純な記入ミスでした。質問と整合性が取れるよう修正しました。
>insert into 新テーブル名(数字,前5桁,後2桁)のように
ありがとうございます。そのようにするとエラーも出ずに実行されました。

[sazi]

エラーの元になっている情報を加工して報告しても意味がありませんよ・・

Answer 1

DoCmd.RunSQL メソッド (Access)はアクションクエリーが対象ですので、SELECT文はエラーです。

アクション クエリまたはデータ定義クエリのための有効な SQL ステートメントを文字列式で指定します。

この文字列には、INSERT INTO、DELETE、SELECT...INTO、UPDATE、CREATE TABLE、ALTER TABLE、DROP TABLE、CREATE INDEX、または DROP INDEX ステートメントを使います。

コメントから察すると、insertしたいのでしょうから、INSERT INTO SELECTなどの構文にして下さい。

Comments

[nyk.]

回答を踏まえて確認した所、ソースコードの◇部が記入漏れになっていたので追記しました。
二度手間になってしまい、申し訳ありません。

ちなみに「insert」を入れた上でも同様のエラーがでてしまい、処理が実行されませんでした。
恐縮ですが、もう一度ご確認ご回答のほどよろしくお願いします。

[sazi]

質問にあるコードが全てですか？
エラーからは、FROM句が生成されていない感じがしますけど。
若しくはFROM句でクエリーを指定しているなら、そのクエリーに関係していると思います。

ともあれ、生成されているSQL文の確認が必要です。

[nyk.]

「全て」と言われるとあまり自信がありません。
SELECT句の項目がたくさんあるのを省いたり、SQL文の外でやったDebug.Printなどを省いています。

逆に言うと省いたのはそれぐらいなのですが、
長くなってもとりあえず全文あげたほうがよさそうですね、少し編集します。

[nyk.]

それか、このソースを書いているボタンを押すと開くフォームにて、
プロパティの「レコードソース」がクエリになっています。
そちらのクエリも影響ありそうでしょうか。

[sazi]

先ずは、生成されているSQL文を質問に追記して下さい。

Answer 2

サンプルを作成して確認してみましたが、提示のSQLでエラーなく追加されました。

実際のテーブル名とSQL内のテーブル名が違っていないか確認してみてください。

---

まくいかない場合は、下記のような手順でデバッグ作業をするといいでしょう。

• まず、クエリのデザインビューで追加クエリを作成して、想定通りに追加されることを確認する。

• VBAコード内に下記のようにデバッグ用コードを埋め込んでイミディエイトウィンドウにSQL文を出力する。

• 作成して追加クエリのSQLとイミディエイトに出力されたSQLを比べて違いがないか確認する。

• 違いがあれば、両者が同じになるようにVBAコードを修正する。

Comments

[nyk.]

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

>・作成して追加クエリのSQLとイミディエイトに出力されたSQLを比べて違いがないか確認する。
>・違いがあれば、両者が同じになるようにVBAコードを修正する。
ご教示通り追加クエリのSQLと同じになる様にVBAを修正したら、エラーがでず実行できました。

エラーの結論としては他の方からもご指摘いただいた通り、
>insert into 新テーブル名(数字,前5桁,後2桁)のように
するのが良かったようです。

回答いただき本当に助かりました。
ありがとうございました。