質問編集履歴
3
sousukeさんのおっしゃる通り、変数SQLの追記がおかしかったので修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -78,9 +78,9 @@
|
|
|
78
78
|
|
|
79
79
|
INSERT INTO 新テーブル名
|
|
80
80
|
|
|
81
|
-
SELECT 数字,Left(Format(
|
|
81
|
+
SELECT 数字,Left(Format([数字],'0000000'),5) as 前5桁,
|
|
82
82
|
|
|
83
|
-
Right(Format(
|
|
83
|
+
Right(Format([数字],'0000000'),2) as 後2桁
|
|
84
84
|
|
|
85
85
|
FROM テーブル名
|
|
86
86
|
|
2
実行されたSQL文の確認の為
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -71,3 +71,17 @@
|
|
|
71
71
|
|
|
72
72
|
|
|
73
73
|
```
|
|
74
|
+
|
|
75
|
+
※上記変数「SQL」に格納されたSQL文を追記します。
|
|
76
|
+
|
|
77
|
+
```SQL
|
|
78
|
+
|
|
79
|
+
INSERT INTO 新テーブル名
|
|
80
|
+
|
|
81
|
+
SELECT 数字,Left(Format(WrkT02_ロット№,'0000000'),5) as 前5桁,
|
|
82
|
+
|
|
83
|
+
Right(Format(WrkT02_ロット№,'0000000'),2) as 後2桁
|
|
84
|
+
|
|
85
|
+
FROM テーブル名
|
|
86
|
+
|
|
87
|
+
```
|
1
ご教示いただいたことを踏まえソースコードを確認すると、記入漏れしていたことに気づきました。ソースコードの◇部を追加しています。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -52,13 +52,15 @@
|
|
|
52
52
|
|
|
53
53
|
SQL = ""
|
|
54
54
|
|
|
55
|
-
SQL = SQL & "SE
|
|
55
|
+
SQL = SQL & "INSERT INTO 新テーブル名" & vbCrLf '-- ◇追記部分
|
|
56
56
|
|
|
57
|
-
|
|
57
|
+
SQL = SQL & " SELECT 数字," & vbCrLf
|
|
58
58
|
|
|
59
|
-
|
|
59
|
+
SQL = SQL & " Left(Format([数字],'0000000'),5) AS 前5桁," & vbCrLf
|
|
60
60
|
|
|
61
|
+
SQL = SQL & " Right(Format([数字],'0000000'),2) AS 後2桁" & vbCrLf
|
|
62
|
+
|
|
61
|
-
SQL = SQL & " FROM テーブル名" & vbCrLf
|
|
63
|
+
SQL = SQL & " FROM テーブル名" & vbCrLf
|
|
62
64
|
|
|
63
65
|
|
|
64
66
|
|