VBA比較処理の仕方

質問

今アクセスで、比較処理を行いたいとおもうのですが、
いまいちソースを書いたことがなくわからないので、教えてください。
(内容)
表１．２に共通するのは、 商品noと金額が一覧であります。しかし、表１にnoがなく表2にはあるものや、その逆もあります。それだけではなく、表１．２に同じno があるが表2では金額があがってるものもあり、
自動で金額を更新し、表２にあって表1にない商品や表１にあって表２にあるものをすべて一覧でだしたいとおもっています。なにかいい方法はないでしょうか？？

回答No.2

x0000x

>表１．２に共通するのは…
表＝テーブルであれば、以下のSQLをクエリとして実行すればOKです。

クエリで「新規作成」新しいクエリダイアログを表示。
「デザインビュー」選択。
「閉じるボタン」選択。
テーブル表示ペインでマウス右ボタンクリックし、メニューから「SQLビュー」を選択。

以下のそれぞれを貼り付けます。
貼り付けた後、名前を付けて保存し、クエリを実行します。
更新クエリでは、更新前の確認メッセージも表されます。

■一致するもの
select 表1.商品no,表1.金額,表2.金額
from 表1 INNER JOIN 表2 on 表1.商品no = 表2.商品no

■一致するもの（表1.金額 < 表2.金額）
select 表1.商品no,表1.金額,表2.金額
from 表1 INNER JOIN 表2 on 表1.商品no = 表2.商品no
where 表1.金額 < 表2.金額

■一致するもの（表1.金額 < 表2.金額 で 表1.金額を表2.金額で更新）
update 表1 INNER JOIN 表2 on 表1.商品no = 表2.商品no
set 表1.金額 = 表2.金額
where 表1.金額 < 表2.金額

■不一致のもの(表１あり、表２なし）
select 商品no,金額 from 表1
where not exists (select * from 表2 Where 表2.商品no = 表1.商品no)

■不一致のもの(表2あり、表1なし）
select 商品no,金額 from 表2
where not exists (select * from 表1 Where 表2.商品no = 表1.商品no)

VBAで処理する必要があるなら、
以下のクエリで抽出した結果をlistboxなどのデータソースとしてプロパティ設定することで表示できます。

また、更新処理は以下の様に「更新ボタン」押下後の処理として記述します。
Private Sub btnUpdate_Click()

If MsgBox("更新しますか？", vbYesNo) <> vbYes Then Exit Sub

Dim qdf As QueryDef
Dim cnt As Long
Dim strSql As String
strSql = ""
strSql = strSql & "update 表1 INNER JOIN 表2 on 表1.商品no = 表2.商品no "
strSql = strSql & "Set 表1.金額 = 表2.金額"
strSql = strSql & "where 表1.金額 < 表2.金額"

Set qdf = CurrentDb.CreateQueryDef("", strSql)
qdf.Execute dbFailOnError
cnt = qdf.RecordsAffected
qdf.Close
Set qdf = Nothing

MsgBox cnt & "件更新しました。"
End Sub

お礼

とてもわかりやすく教えて頂きありがとう御座います。実施してみたいと思います。
又、もう一点お伺いしたいのですが、どこが更新されたか一覧にだして、色をつけたいのですが、いい方法はないでしょうか？
色々とご質問してしまい大変申し訳御座いません。