ACCESSの削除クエリについて

質問

ACCESSの初心者のものです。

選択クエリで2つのテーブルから一致した項目を抽出したものをだしました。
そのレコードを（2つのテーブル）のデータを削除したいのですがどうすればいいでしょうか？

よろしくお願いします。

回答No.1

Gin_F · ベストアンサー

ひとつの削除クエリで複数のテーブルから削除することは
できません。

どのような関係のテーブルなのでしょうか？
親子関係であれば、リレーションシップで連鎖削除などの設定を
しておけば、お望みのことに近いことが可能かもしれません。

回答No.4

KAERU_VXV

(1)テーブルＡとテーブルＢで一致するものをワークテーブルＷＫに抽出する。（テーブル作成クエリー）

　テーブルＡ　　　　テーブルＢ　　　　　　ＷＫ
　電話番号　　　　　電話番号　　　　　　電話番号
　　1111
　　2222　　一致　　2222　　　抽出　　　2222
　　3333　　－－　　3333　　　－→　　　3333
　　　　　　　　　　　　4444

(2)テーブルＡとＷＫで一致するものをテーブルＡから削除する。（削除クエリー）

　　ＷＫ　　　　　　テーブルＡ　　　　　テーブルＡ
　電話番号　　　　　電話番号　　　　　　電話番号
　　　　　　　　　　　　　　1111　　　　　　　　1111
　　2222　　一致　　　2222　　　削除
　　3333　　－－　　　3333　　　－→

(3)テーブルＢとＷＫで一致するものをテーブルＢから削除する。（削除クエリー）

　　ＷＫ　　　　　　テーブルＢ　　　　　テーブルＢ
　電話番号　　　　　電話番号　　　　　　電話番号

　　2222　　一致　　2222　　　削除
　　3333　　－－　　3333　　　－→
　　　　　　　　　　　　4444　　　　　　　　　4444

※削除クエリー自体はご存知なのですよね？

回答No.3

KAERU_VXV

「選択クエリで2つのテーブルから一致した項目を抽出したものをだしました。」
→これの結果をテーブル作成クエリーでワークテーブルに保存して置きます。
続いて、削除クエリーでテーブルＡからワークテーブルに一致するデータを削除する。
同様に、削除クエリーでテーブルＢからワークテーブルに一致するデータを削除する。

補足

KAERU_VXVさん。ご回答遅くなりまして申し訳ございません。
「続いて、削除クエリーでテーブルＡからワークテーブルに一致するデータを削除する。」
の点ですが、クエリでどのように設定をすればよろしいのでしょうか？
一致してるのは、電話番号どうしが一致しているものなのですが．．．

回答No.2

noname#22222

スーツのデザイナで、そもそも＜削除クエリ＞など使ったことがありませんが...
多分、DELETE文を生成しているに過ぎないと解釈して・・・
No１の方の回答をちくっとテストしてみました。
そうして、ほぼ、同じような結論（？）に達しました。

*****

Access95の頃は、次のような削除クエリーを使っていました。

Dim dbsCurrent As Database
Dim qdfDelete　 As QueryDed

Set dbsCurrent = CurrentDb
Set qdfDelete = dbsCurrent.CreateQueryDef()
qdfDelete.Name = "削除クエリー"
qdfDelete.SQL = "DELETE FROM ・・・"
dbsCurrent.QueryDefs.Append qdfDelete
qdfDelete.Execute
dusCurrent.QueryDefs.Delete "削除クエリー"

なお、現在は、このようにシコシコとコードを書く必要はないと思います。

----------------------------------------------------------------
QDFExecute "DELETE FROM ・・・"
----------------------------------------------------------------

と、QDFExecute関数を用意すれば、僅か１行で事足りると思います。

----------------------------------------------------------------
QDFExecute "DELETE FROM 選択クエリ名"　はエラーに！
----------------------------------------------------------------

さて、Table1とTable2という２つのテーブルからデータを抽出する選択クエリーを指定すると、

「指定されたテーブルから削除出来ませんでした。(QDFExecute)」

というエラーメッセージが表示され No.1の方の指摘の正しさが確認されました。

----------------------------------------------------------------
QDFExecute "DELETE FROM Table1 WHERE ID=1"
----------------------------------------------------------------

とやって連鎖削除を利用するのが一番手っ取り早いようです。

Public Sub QDFExecute(ByVal SQLText As String)
On Error GoTo Err_QDFExecute
　　Dim dbs As DAO.Database

　　Set dbs = CurrentDb
　　dbs.Execute SQLText
Exit_QDFExecute:
　　Exit Sub
Err_QDFExecute:
　　ErrMsg Err.Description & "(QDFExecute)"
　　Resume Exit_QDFExecute
End Sub