質問編集履歴
3
sousukeさんのおっしゃる通り、変数SQLの追記がおかしかったので修正しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -38,7 +38,7 @@
|
|
|
38
38
|
※上記変数「SQL」に格納されたSQL文を追記します。
|
|
39
39
|
```SQL
|
|
40
40
|
INSERT INTO 新テーブル名
|
|
41
|
-
SELECT 数字,Left(Format(
|
|
41
|
+
SELECT 数字,Left(Format([数字],'0000000'),5) as 前5桁,
|
|
42
|
-
Right(Format(
|
|
42
|
+
Right(Format([数字],'0000000'),2) as 後2桁
|
|
43
43
|
FROM テーブル名
|
|
44
44
|
```
|
2
実行されたSQL文の確認の為
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -34,4 +34,11 @@
|
|
|
34
34
|
'▼挿入実行
|
|
35
35
|
DoCmd.RunSQL SQL '-- ここでエラー
|
|
36
36
|
|
|
37
|
+
```
|
|
38
|
+
※上記変数「SQL」に格納されたSQL文を追記します。
|
|
39
|
+
```SQL
|
|
40
|
+
INSERT INTO 新テーブル名
|
|
41
|
+
SELECT 数字,Left(Format(WrkT02_ロット№,'0000000'),5) as 前5桁,
|
|
42
|
+
Right(Format(WrkT02_ロット№,'0000000'),2) as 後2桁
|
|
43
|
+
FROM テーブル名
|
|
37
44
|
```
|
1
ご教示いただいたことを踏まえソースコードを確認すると、記入漏れしていたことに気づきました。ソースコードの◇部を追加しています。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -25,10 +25,11 @@
|
|
|
25
25
|
|
|
26
26
|
'▼2. SQL
|
|
27
27
|
SQL = ""
|
|
28
|
+
SQL = SQL & "INSERT INTO 新テーブル名" & vbCrLf '-- ◇追記部分
|
|
28
|
-
SQL = SQL & "SELECT 数字," & vbCrLf
|
|
29
|
+
SQL = SQL & " SELECT 数字," & vbCrLf
|
|
29
|
-
SQL = SQL & "
|
|
30
|
+
SQL = SQL & " Left(Format([数字],'0000000'),5) AS 前5桁," & vbCrLf
|
|
30
|
-
SQL = SQL & "
|
|
31
|
+
SQL = SQL & " Right(Format([数字],'0000000'),2) AS 後2桁" & vbCrLf
|
|
31
|
-
SQL = SQL & "
|
|
32
|
+
SQL = SQL & " FROM テーブル名" & vbCrLf
|
|
32
33
|
|
|
33
34
|
'▼挿入実行
|
|
34
35
|
DoCmd.RunSQL SQL '-- ここでエラー
|