Accessで条件を基にした削除のVBAの記述について

Question

閲覧ありがとうございます。

別DBの2つのテーブルをリンクテーブルでAccessと繋いでいます。
3つのカラム条件とし、テキストボックスに値を入力してその値を基に削除を行うフォームを作成しております。
また、3つのカラムの条件を基に2つのテーブルのレコードを1つのボタンで削除を行わなければいけません。

現状のソースコードでは、エラーは発生しないものの削除結果が0件となり、削除が行えていません。
デバッグを行った結果、変数にテキストボックスの値は格納されてはいます。
<現状のソースコード>

Private Sub 削除ボタン_Click()


'検索条件が一つでも未入力の場合は削除処理をしない
If IsNull(Me.txtA) Or IsNull(Me.txtB) Or IsNull(Me.txtC) Then
MsgBox "削除条件をすべて入力してください"
Exit Sub
End If

'Table_1用のSQL､変数
Dim SQL_Tb1 As String
Dim rc_Tb1 As Integer

Dim dbs As Database
Set dbs = CurrentDb

'Table_1のDELETE文の作成
SQL_Tb1 = "DELETE * FROM Table_1_query  WHERE ""A"" = '" & txtA & "' And ""B"" = '" & txtB & "' And ""C"" = '" & txtC & "' ;"

dbs.Execute SQL_Tb1, dbFailOnError
rc_Tb1 = dbs.RecordsAffected


'Table_2用のSQL､変数
Dim SQL_Tb2 As String
Dim rc_Tb2 As Integer


'Table_2のDELETE文の作成
SQL_Tb2 = "DELETE * FROM Table_1_query  WHERE ""A"" = '" & txtA & "' And ""B"" = '" & txtB & "' And ""C"" = '" & txtC & "' ;"

dbs.Execute SQL_Tb2, dbFaileOnError
rc_Tb2 = dbs.RecordsAffected

'削除結果を出力
MsgBox "Table_1：" & rc_Tb1 & "件, Table_2：" & rc_Tb2 & "件を削除"

End Sub

また、SQLに問題があると思い
別のソースコードを作成した結果削除は行えるのですが
FindFirstメソッドを使用しているので条件の中の最新の1件のみの削除しか行えません。(いろいろ調べましたが全件のレコードの中で条件に該当するレコードすべてを調べるメソッドがわからなかったです。)
またこちらのソースコードでは2つのテーブルを同時に削除する記述がよくわかりませんでした。。。
<削除に成功したVBA>

Private Sub 削除_Click()


'検索条件が一つでも未入力の場合は削除処理をしない
If IsNull(Me.txtA) Or IsNull(Me.txtB) Or IsNull(Me.txtC) Then
MsgBox "削除条件をすべて入力してください"
Exit Sub
End If

Dim DB As DAO.Database
Dim RS As DAO.Recordset

Set DB = CurrentDb
Set RS = DB.OpenRecordset("Table_1_query")

RS.FindFirst "A" = "' & txtA & '" And "B" = "' & txtB & '" And "C" = "' & txtC & '"
RS.Delete

RS.Close: Set RS = Nothing
DB.Close: Set DB = Nothing

End Sub

ご指摘、ヒント等頂ければと思います。

※開発初心者ですので、文章の中に不適切な表現があるかもしれませんが、ご容赦ください

Answer 1

条件自体が、Table_1_queryの項目に対する条件には見えず、フォーム項目の値をチェックしているだけに見えます。

クエリーやテーブルの項目を指定する際に"で括るとそれは単なる文字列になります。
以下のような記述に変更して下さい。

"A ='" & txtA & "' And B = '" & txtB & "' And C = '" & txtC & "'"

それから、Table_1_queryが更新可能なクエリーかどうかが気になりますので、手動でクエリーを作るなりして確認してみて下さい。

２番目のコードで削除できているみたいなので、更新可能なクエリーですね。

Comments

[oze]

回答ありがとうございます。

ご指摘頂いた点、修正したところ削除を行うことができました。