質問編集履歴
2
諸々未反映だったため
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,10 +1,20 @@
|
|
|
1
1
|
### 前提・実現したいこと
|
|
2
2
|
|
|
3
3
|
VBA、SQL初心者です。
|
|
4
|
-
ここに質問の内容を詳しく書いてください。
|
|
5
|
-
（例）PHP(CakePHP)で●●なシステムを作っています。
|
|
6
|
-
|
|
4
|
+
AccessVBAで特定のレコードを削除するSQLを実装中、エラーが発生しました。
|
|
5
|
+
関連するテーブルとフィールドの構成
|
|
6
|
+
・テーブルTabA、フィールドcol1
|
|
7
|
+
・テーブルTabB、フィールドcol2
|
|
7
8
|
|
|
9
|
+
|
|
10
|
+
実現したいこと
|
|
11
|
+
TabAの特定のレコードを削除したいです。
|
|
12
|
+
特定のレコードの条件は
|
|
13
|
+
col1が、TabBのcol2と値が一致しているレコードです。
|
|
14
|
+
|
|
15
|
+
初歩的なミスや勘違いがあればそちらもご指摘いただければ幸いです。
|
|
16
|
+
よろしくお願いします。
|
|
17
|
+
|
|
8
18
|
### 発生している問題・エラーメッセージ
|
|
9
19
|
|
|
10
20
|
```
|
|
@@ -34,8 +44,9 @@
|
|
|
34
44
|
|
|
35
45
|
### 試したこと
|
|
36
46
|
|
|
47
|
+
・スペルミスがないか、テーブルからテーブル名、フィールド名をコピペ
|
|
37
|
-
|
|
48
|
+
・サブクエリのTabAとTabB、col1とcol2を入れ替え
|
|
38
49
|
|
|
39
50
|
### 補足情報（FW/ツールのバージョンなど）
|
|
40
51
|
|
|
41
|
-
|
|
52
|
+
Access2016
|
1
文法の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -23,7 +23,7 @@
|
|
|
23
23
|
Dim mySql As String
|
|
24
24
|
|
|
25
25
|
mySql = "DELETE FROM TabA"
|
|
26
|
-
mySql = mySql & " WHERE TabA.col1 IN (SELECT TabB.col2 FROM TabB INNER JOIN TabA
|
|
26
|
+
mySql = mySql & " WHERE TabA.col1 IN (SELECT TabB.col2 FROM TabB INNER JOIN TabA"
|
|
27
27
|
mySql = mySql & " ON TabB.col2 = TabA.col1)"
|
|
28
28
|
|
|
29
29
|
db.Execute mySql, dbFailOnError
|