アクセス クエリについて２点お教え下さい。

Ａ(１０００件)とＢ(５００件)の２つのテーブルがあります。
この２つをキーでつなぎ、Ａの全てのデータを表示し、
２つの一致したデータのみにＢの●・△・■のフィールドを追加したい。

【質問１】
２つを繋ぐ完全一致のキーがありませんので
まずは電話番号で確認し、その後住所、その後名前と・・・
最終的にはこの３つの内ひとつでも一致したものにＢのフィールドを
追加したいのですが、どのようにするのがベストでしょうか？


【質問２】
ＡＢのテーブルどちらにも重複したデータが含まれている場合
２つを繋ぎ“Ａの全てのレコードとＢの同じ結合フィールドのレコードだけを含める”
にチェックを入れてもＡの１０００件を超えて表示されます。
通常、“Ａの全てのレコードとＢの同じ結合フィールドのレコードだけ”なので
表示されるレコードは１０００件ですよね？
重複データを削除する以外に１０００件で表示する方法はないのでしょうか？

よろしくお願い致します。

No.1 回答者： mshr1962 回答日時： 2011/04/16 22:59

【質問１】

BのファイルをAに対してキーの数だけ結合します。
A-B1,B2,B3
A-B1の条件：B1!電話番号=A!電話番号
A-B2の条件：B2!住所=A!住所
A-B3の条件：B3!名前=A!名前

●1:SWITCH(B1!電話番号=A!電話番号,B1!●,B2!住所=A!住所,B2!●,B3!名前=A!名前,B3!●,True,Null)

【質問２】
＞表示されるレコードは１０００件ですよね？
Bに同じキーが重複するとひとつのAレコードに複数の結合になる為、1000件を超えます。
集計のグループ化でAのキー（電話番号,住所,名前）をグループ化して
B側の表示する内容を先頭か最後にしてください。

この回答への補足

ご回答ありがとうございます。
すみません、なにせ初心者の為、回答を理解出来ません。
申し訳ありませんが、細かくお教え願いませんでしょうか？

【質問１】
ＡＢ間を3本の結合線で結ぶ。
その後のＡーＢ１・ＡーＢ２・ＡーＢ３とは列を追加するのですか？
SWITCH関数はどこに入力するのですか？
SWITCHの●はＢの追加するフィールドの事ですか？

【質問２】
集計のグループ化でAのキー（電話番号,住所,名前）をグループ化して・・・
Ａテーブルには名前は同じでも備考の内容が異なっていたり、
グループ化できないフィールドがいくつかございます。

色々すみませんがよろしくお願い致します。

補足日時：2011/04/17 00:26

No.2 ベストアンサー 回答者： piroin654 回答日時： 2011/04/17 04:57

クエリでテーブルを更新するのは難しい

のでは。

(1)

質問の●・△・■　を順番に、
F1、F2、F3とします。

もし、●・△・■　が一つの
フィールドならば少しコードを
変える必要があります。


以下のSQL文でクエリを作ります。
新しいクエリをSQLビューにして、
以下のSQL文をコピーし貼り付け、
保存します。名前を「クエリ差分」とします。

SELECT A.電話番号, B.F1, B.F2, B.F3
FROM A, B
WHERE (((A.電話番号)=[B].[電話番号])) OR (((A.住所)=[B].[住所])) OR (((A.名前)=[B].[名前]));



次に、フォームにボタンを一つ設定し、
名前を「cmd抽出」とします。
ボタン「cmd抽出」の上で右クリックして
プロパティシートを開き、その中の「クリック時」
のところで右端をクリックして、「ビルダの選択」
というフォームを表示し、その中の「コードビルダ」
を選択して、「OK」のボタンを押します。
コード表が開かれるので、表示されたコードを
以下のように設定します。


DAOを使っているので、コード表のツールから
参照設定を選択して、
Microsoft DAO xx Object Library
にチェックを入れて、OKとします。xxは3.6のような数字です。
このとき、
Microsoft ActiveX Data Objects xx Library
にチェックが入っていたらはずしてください。



Private Sub cmd抽出_Click()
Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset

Set db = CurrentDb
Set rs1 = db.OpenRecordset("A", dbOpenDynaset)
Set rs2 = db.OpenRecordset("クエリ差分")

If rs2.RecordCount > 0 Then
rs2.MoveFirst
Do Until rs2.EOF
Do Until rs1.EOF
If rs2!電話番号 = rs1!電話番号 Then
rs1.Edit
rs1!F1 = rs2!F1
rs1!F2 = rs2!F2
rs1!F3 = rs2!F3
rs1.Update
Exit Do
End If
rs1.MoveNext
Loop
rs2.MoveNext
Loop
End If
rs1.Close: Set rs1 = Nothing
rs2.Close: Set rs2 = Nothing
db.Close: Set db = Nothing
End Sub



(2)
クエリのデザインビューで結合線の矢印がAからBに
向かっていますか。
フィールドには何を表示する設定になっていますか。
そのとき、表示するフィールドのテーブルは何を
指定していますか。

SQL文だと、

SELECT A.電話番号
FROM A LEFT JOIN B ON A.電話番号 = B.電話番号;

のようになっていますか。

この回答への補足

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

今回、テーブルを更新するのではなく、表示のみでよかったので、
piroin654様よりお教えいただきました、差分クエリとＡテーブルをつなぎ
目的のＡ＋Ｆ１・Ｆ２・Ｆ３を表示する事ができました。
言葉が足りなかったようで大変お手数をお掛けしました。

(2)
＞クエリのデザインビューで結合線の矢印がAからBに向かっていますか。
向かっています。

＞フィールドには何を表示する設定になっていますか。
Ａの全てとＢのＦ１・Ｆ２・Ｆ３です。

＞そのとき、表示するフィールドのテーブルは何を指定していますか。
Ａの全てとＢのＦ１・Ｆ２・Ｆ３です。

＞SQL文だと、
＞SELECT A.電話番号
＞FROM A LEFT JOIN B ON A.電話番号 = B.電話番号;

このようになっています。↓
SELECT
FROM A LEFT JOIN B ON A.電話番号 = B.電話番号;

Ｂテーブルに重複がある限り仕方がないのですね。

ありがとうございました。

補足日時：2011/04/17 12:02