やりたいこと
入力フォーマット.accdb と データベース.accdb という2つのファイルがあります。
入力フォーマット.accdb内には「empテーブル」というテーブルがあり、データベース.accdbには「表テーブル」というテーブルがあります。
empテーブルと表テーブルは列の構成が同じで、どちらもID列を持っています。
empテーブルのID列で表テーブルを検索し、もし同じIDの列があればその行を削除したいです。
コード
VBA
Private Sub 行の削除() Dim EmpDb As DAO.Database Dim EmpRs As DAO.Recordset Set EmpDb = CurrentDb Set EmpRs = EmpDb.OpenRecordset("empテーブル") 'empテーブルを格納 EmpRs.MoveFirst Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim DbPath As String DbPath = "データベース.accdbのパス" Set Db = OpenDatabase(DbPath) Set Rs = Db.OpenRecordset("表テーブル", dbOpenDynaset) '表テーブルを格納 Dim Criteriaon as String Do Until EmpRs.EOF '最後の行までくりかえす Criteriaon = "[ID] = '" & EmpRs("ID") & "'" '**うまくいかない部分** Rs.FindFirst Criteriaon If Rs.NoMatch Then '見つからない場合の処理 End If Rs.Delete '同じ行があれば削除 Loop
困っていること
例えばempテーブルのIDが11だったら、表テーブルを検索するために Rs.FindFirst [ID] = '11' となるように記述すればいいと思い、検索に使う文字列はいったんCriteriaonにまとめようと考えました。
作成当初(1年ほど前、Access2019で作成?)はこれで目当てのRecordsetが検索でき、Rs.Deleteで削除できたので、このコードを使う人とも動作確認をして渡しました。
しかし最近になってうまく削除できなくなったと伝えられ、あらためて見直してみると、 Rs.FindFirst [ID] = '11 となぜか後の「'」が消えてしまい、見つからない処理へ分岐していました。これ以降どうあがいても後の「'」を付け足すことができません。削除できなくなった原因はこれではないかと思いますが、正直わかりません。
試したこと
(すべてEmpRs("ID")が11の場合)
コード:Criteriaon = "[ID] = '" & EmpRs("ID") & "'"
結果:[ID] = '11
コード:Criteriaon = "[ID] = " & Chr(39) & EmpRs("ID") & Chr(39)
結果:[ID] = '11
コード:Criteriaon = "[ID] = '11'"(試しに直打ち)
結果:[ID] = '11' ← こうなりたい
なんでこうなるのかまったくわからずお手上げ状態です。
恐れ入りますが、ご助力ください。よろしくお願いします。
まだ回答がついていません
会員登録して回答してみよう