アクセスのクエリについて教えてください。

質問

アクセス初心者です。
AテーブルとBテーブルを合体したCテーブルを作成したいのですが、
クエリを使って１工程でできませんでしょうか。
レコードが１０００を越えると大変な作業になりますので、
何か良い方法を探しております。宜しくお願いします。

Aテーブル
顧客No　　名前　　住所
　１　　　　　鈴木　　東京
　２　　　　　田中　　横浜

Bテーブル
顧客No　　名前　　電話
　１　　　　　鈴木　　０３
　３　　　　　山田　　０４４

Cテーブル
顧客No　　名前　　住所　　電話
　１　　　　　鈴木　　東京　　０３
　２　　　　　田中　　横浜
　３　　　　　山田　　　　　　０４４

　　　　　　　　　　　　　以上

回答No.3

30246kiku · ベストアンサー

Aテーブル、Bテーブルにある「顧客No」「名前」の一覧を作ります。

SELECT 顧客No, 名前 FROM Aテーブル
UNION
SELECT 顧客No, 名前 FROM Bテーブル
;

上記内容をベースに、各テーブルの情報を拾っていきます。
（Aテーブル、Bテーブルに関して、一覧作成も一気にやると以下記述に）

SELECT Q1.顧客No, Q1.名前, TA.住所, TB.電話
FROM (
(SELECT 顧客No, 名前 FROM Aテーブル
UNION
SELECT 顧客No, 名前 FROM Bテーブル) AS Q1
LEFT JOIN Aテーブル AS TA ON TA.顧客No = Q1.顧客No)
LEFT JOIN Bテーブル AS TB ON TB.顧客No = Q1.顧客No
;

この情報で Cテーブルを作成するのなら、１行目を以下に変更します。

SELECT Q1.顧客No, Q1.名前, TA.住所, TB.電話 INTO Cテーブル
・・・・
・・・・

※ここで書いたのは、クエリのSQLビューで記述します。

見当違いでしたらスルーしてください。

お礼

30246kiku様
ご回答ありがとうございます。
求めていたのはまさにこの内容です。
問題となっていたのは、No１の「鈴木」が両テーブルあっても、
重複したレコードにならないという点です。
ユニオンでは重複しないことを知りませんでした。
大変役に立ちました、ありがとうございます。

回答No.2

mission51

VBAはわかりますか？クエリでは思いつかないので。

全体のレコード数を入力すれば（１０００件なら１０００と入力するだけ）例題の内容は１クリックで完了です。

まずフォームを作成し、ボタンを一個配置してクリックイベントに下記コードを貼り付ける。
「メニューバー」の「ツール」「参照設定」からMicrosoft Active Data Objects 6.0 Libraryにチェックをいれる。

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim R_COUNT As Integer
Dim i As Integer
Dim SQL_NO1 As String
Dim SQL_NO2 As String

R_COUNT = InputBox("レコード数の入力")
SQL_NO1 = "UPDATE A, C, B SET C.ID = [A].[ID], C.名前 = [A].[名前], C.住所 = [A].[住所] WHERE (((C.ID)=[A].[ID]))"
SQL_NO2 = "UPDATE A, C, B SET C.名前 = [B].[名前], C.電話 = [B].[電話] WHERE (((C.ID)=[B].[ID]))"

For i = 1 To R_COUNT
Set CN = CurrentProject.Connection
Set RS = New ADODB.Recordset

RS.Open "C", CN, adOpenKeyset, adLockOptimistic 'Cテーブルを編集対象にする
RS.AddNew
RS!ID = i 'IDフィールドに連番で「レコード数」分レコード追加
RS.Update
RS.Close: Set RS = Nothing
Next i

DoCmd.SetWarnings False 'クエリの実行時のメッセージを表示しない

DoCmd.RunSQL SQL_NO1 'SQL_NO1クエリの実行
DoCmd.RunSQL SQL_NO2 'SQL_NO2クエリの実行

DoCmd.SetWarnings True '「クエリの実行時のメッセージを表示しない」を元に戻す

CN.Close: Set CN = Nothing

MsgBox R_COUNT & "件追加しました"

お礼

ご回答ありがとうございます。
いろいろご検討いただきましたが、VBAはクエリ以上に分かりません。
「クエリ」では思いつかないというのは、ありがたい情報です。
手作業でこつこつやるしかないようですね。
例題の書き方で誤解されているかもしれませんが、
実際の「顧客No」は連続した数値ではありませんので、
クエリを使ってテーブルを手作業で合体させています。

回答No.1

mission51

[顧客No]が主キーだと仮定します。

１、Cテーブルの[顧客No]に１から３まで番号を振る。

２、Aテーブルの[名前]と[住所]をCテーブルの[顧客No]の各レコードに更新クエリで追加する。
UPDATE A, C, B SET C.ID = [A].[ID], C.名前 = [A].[名前], C.住所 = [A].[住所] WHERE (((C.ID)=[A].[ID]));

３、Bテーブルの[名前]と[電話]をCテーブルの[顧客No]の各レコードに更新クエリで追加する。
UPDATE A, C, B SET C.名前 = [B].[名前], C.電話 = [B].[電話] WHERE (((C.ID)=[B].[ID]));

　　以上で例題の内容となりますが・・・。これではダメでしょうかね。

補足

mission51さん、ご回答ありがとうございます。
実は一番悩んでいるのが

>１、Cテーブルの[顧客No]に１から３まで番号を振る。

ところなのです。
１０００以上のレコードからなるAテーブルとBテーブルですので、
手作業ではとても無理で、AとBを比較し一致顧客Noと不一致顧客Noを
合体させて、Cテーブルの顧客Noフィールドを生成しています。
このようなテーブルが実際は１０数個ありますので、
１、の作業とそれ以降の作業を合体させて１工程でできないかと悩んでいる次第です。