Access VBAでの削除SQL

Question

前提・実現したいこと

VBA、SQL初心者です。
AccessVBAで特定のレコードを削除するSQLを実装中、エラーが発生しました。
関連するテーブルとフィールドの構成
・テーブルTabA、フィールドcol1
・テーブルTabB、フィールドcol2

実現したいこと
TabAの特定のレコードを削除したいです。
特定のレコードの条件は
col1が、TabBのcol2と値が一致しているレコードです。

初歩的なミスや勘違いがあればそちらもご指摘いただければ幸いです。
よろしくお願いします。

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

エラーメッセージ
実行時エラー3075
クエリ式'TabA.col1 IN (SELECT TabB.col2 FROM TabB INNER JOIN TabA
 ON TabB.col2 = TabA.col1)'の構文エラー

該当のソースコード

Dim db As DAO.Database
Set db = CurrentDb

Dim mySql As String

mySql = "DELETE FROM TabA"
mySql = mySql & " WHERE TabA.col1 IN (SELECT TabB.col2 FROM TabB INNER JOIN TabA"
mySql = mySql & " ON TabB.col2 = TabA.col1)"

db.Execute mySql, dbFailOnError

db.Close
Set db = Nothing

試したこと

・スペルミスがないか、テーブルからテーブル名、フィールド名をコピペ
・サブクエリのTabAとTabB、col1とcol2を入れ替え

補足情報（FW/ツールのバージョンなど）

Access2016

Answer 1

下記のようなシンプルなサンプルテーブルを作成して、提示のコードを実行しましたが、エラーなく実行されました。

TabA

col1	col3
1	a
2	b
3	c
4	d

TabB

col2
1
3

実行結果
TabA

col1	col3
2	b
4	d

おそらく実際のテーブル名、フィールド名ではなく質問用に書き換えていると思われますので、
テーブル名、フィールド名に間違いがないか確認してみてください。

---

ちなみに、
下記のSQLでも同様の結果が得られます。

    mySql = "DELETE DISTINCTROW TabA.*"
    mySql = mySql & " FROM TabA INNER JOIN TabB ON TabA.col1 = TabB.col2"

DISTINCTROW を入れるのがポイントです。

Comments

[tatsutatsu]

早々にご回答いただきありがとうございました。
>テーブル名、フィールド名に間違いがないか確認してみてください。
こちらの通り、改めて確認したところ「:」がフィールド名に入っており、SQLで使用不可文字のようでした。
削除したところうまくいきました。

また、コードのご提案いただきありがとうございます。
こちらの方がシンプルで分かりやすかったので使わせていただきます。

単純な知識不足でしたが、ご丁寧に回答いただきありがとうございました。大変助かりました。

Answer 2

質問では置き換えていますから、エラーについては置き換え前の内容でないと判断できません。
debug.printで編集したSQL文をコピーしてクエリーに張り付けするなどして確認して下さい。

サブクエリーなどで複雑になっている事が理由かもしれませんので、DELETEでは削除するテーブルを指定できることを利用すると簡潔な記述になります。

DELETE TabA.* FROM TabA INNER JOIN TabB ON TabB.col2 = TabA.col1

Comments

[sazi]

被ってた・・・

[tatsutatsu]

ご回答いただきありがとうございます。
ご指摘の通り、フィールド名で使用不可文字「:」を使用していたのが原因でした。

また、コードもご教示いただきありがとうございます。
初学者なもので、こちらも大変勉強になりました。
簡潔で機能的なコードを書けるように精進したいと思います。
大変ありがとうございました。