質問編集履歴
1
FROMの前についていた「,」を削除しました。誤記です。失礼しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -32,7 +32,7 @@
|
|
32
32
|
|
33
33
|
dbpath = "Data Source=" & ThisWorkbook.Path & "\工事.accdb"
|
34
34
|
|
35
|
-
SQLstring = "SELECT ID, 工事日, 地区, 壁材
|
35
|
+
SQLstring = "SELECT ID, 工事日, 地区, 壁材 FROM MT_壁材 WHERE 地区 = '" & chiku & "'"
|
36
36
|
|
37
37
|
conn.Open prov & dbpath
|
38
38
|
|
@@ -62,7 +62,7 @@
|
|
62
62
|
|
63
63
|
↓こうなればいいのかと思うのですが、これもエラーです。
|
64
64
|
|
65
|
-
SQLstring = "SELECT ID, 工事日, 地区, 壁材
|
65
|
+
SQLstring = "SELECT ID, 工事日, 地区, 壁材 FROM MT_壁材 WHERE 地区 = '" & chiku & "' And 壁材 = '" & cabe & "'"
|
66
66
|
|
67
67
|
|
68
68
|
|