初歩的な抽出方法に関して（Access）

質問

A社とB社の管理コードや売上金額を（A社テーブル、B社テーブルと存在します。）
クエリで抽出する際に、
A社　　　B社
0001　　　0002
0002　　　0003
0003　　　0005
0004　　　0006
0006　　　0007
0009　　　0008

となっている場合、
クエリによって
0002
0003
0006

なるように抽出条件を設定したいのですが。
どなたかこの初歩的な質問に教えていただくことが出来ますでしょうか？

回答No.2

noname#192382 · ベストアンサー

シート1にA社のデータをシート2にB社のデータがあるとして、2社に共通のデータがあればシート3にそのデータを示すマクロを下のように作りました。データ数はここでは仮に6個としてあります。

Sub Macro5()
'
' Macro5 Macro
' マクロ記録日 : 2008/4/10 ユーザー名 :
'

'
Dim my1gyo As Integer, mydata As String, myrange As Range, my2gyo As Integer, mydata2 As String, mydata3 As String
For my1gyo = 1 To 6
Worksheets("sheet1").Activate
mydata = Cells(my1gyo, 1)
'MsgBox mydata
Worksheets("sheet2").Activate
For my2gyo = 1 To 6
If Cells(my2gyo, 1).Value = mydata Then

'MsgBox mydata2
Worksheets("sheet3").Activate
Cells(my1gyo, 1) = mydata

Exit For
Else
End If
Next my2gyo
'MsgBox VLookup(mydata, myrange, 2, False)
Next my1gyo

'

'
End Sub

回答No.3

auty

デザインビューで作成するときは、
A社テーブルのコードcodeAから、B社テーブルのコードcodeBへ、ドラッグにより結合線を引きます。

フィールド欄に
表示するフィールドを選択すると、SQLビューでたとえば、

SELECT A社.*, B社.*
FROM A社 INNER JOIN B社 ON A社.codeA = B社.codeB;

とSQL文が出来上がります。

回答No.1

CHRONOS_0

両方に共通するものだけ取り出したければ
比較するフィールドを結合したクエリを作ります