ACCESS 更新 ADO Filter Do Until

質問

いつもお世話になっております。
ACCESSのフォームに作成したコマンドボタンを実行すると
TABLE1からTABLE2へID番号を元に値を更新するようなプログラムを
作りましたが、うまく動きません。
ご指摘お願いします。

参考までに画像を添付します。

Dim CN As New ADODB.Connection
Dim rsA As New ADODB.Recordset
Dim rsB As New ADODB.Recordset

Set CN = CurrentProject.Connection
rsA.Open "TABLE1", CN, adOpenKeyset, adLockOptimistic
rsB.Open "TABLE2", CN, adOpenKeyset, adLockOptimistic

Do Until rsA.EOF

rsB.Filter = " ID = '" & rsA!ID & "'"

Do Until rsB.EOF
rsB!名前 = rsA!名前
rsB!価格 = rsA!価格
rsB.Update
Loop

rsA.MoveNext
Loop

rsB.Close: Set rsB = Nothing
rsA.Close: Set rsA = Nothing
CN.Close: Set CN = Nothing

回答No.3

ShowMeHow · ベストアンサー

ANO2ですが、
"UPDATE TABLE1 LEFT JOIN TABLE2 ON TABLE1.ID = TABLE2.ID SET TABLE2.NAME = [TABLE1]![NAME], TABLE2.[PRICE] = [TABLE1]![NAME];"
↓
"UPDATE TABLE1 LEFT JOIN TABLE2 ON TABLE1.ID = TABLE2.ID SET TABLE2.NAME = [TABLE1]![NAME], TABLE2.[PRICE] = [TABLE1]![PRICE];"
でした。

回答No.2

ShowMeHow

更新クエリを使えるのがアクセスの特徴ですが、そのSQL文をそのままVBAで実行させることもできます。

Dim CN As New ADODB.Connection
Set CN = CurrentProject.Connection
CN.EXECUTE "UPDATE TABLE1 LEFT JOIN TABLE2 ON TABLE1.ID = TABLE2.ID SET TABLE2.NAME = [TABLE1]![NAME], TABLE2.[PRICE] = [TABLE1]![NAME];"
CN.CLOSE
SET CN = NOTHING

LEFT JOINなのか、INNER JOIN　なのかは、与えられている情報からは判断できませんが、idに重複がなければどちらでもよいのかなと思います。

回答No.1

m3_maki

Recordset を使わなくても
更新クエリでご希望のことはできると思いますが。

> TABLE1からTABLE2へID番号を元に値を更新するようなプログラムを
> 作りましたが、うまく動きません。
うまく動かなくてどうなるかを書くようにしましょうね。

Do Until rsB.EOF
rsB!名前 = rsA!名前
rsB!価格 = rsA!価格
rsB.Update
rsB.MoveNext　　'<---　追加
Loop