ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ
スポンサーサイト（詳細）

質問
質問者：nikomasa 初歩的な抽出方法に関して（Access）
困り度：
  • 困っています
 A社とB社の管理コードや売上金額を（A社テーブル、B社テーブルと存在します。）
クエリで抽出する際に、
A社　　　B社
0001　　　0002
0002　　　0003
0003　　　0005
0004　　　0006
0006　　　0007
0009　　　0008

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

なるように抽出条件を設定したいのですが。
どなたかこの初歩的な質問に教えていただくことが出来ますでしょうか？
質問投稿日時：08/04/10 11:06
質問番号：3937058
この質問に対する回答は締め切られました。
最新から表示｜回答順に表示｜良回答のみ表示

回答

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

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

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

とSQL文が出来上がります。
種類：アドバイス
どんな人：経験者
自信：参考意見
回答日時：08/04/10 21:08
回答番号：No.3
この回答へのお礼この回答にお礼をつける(質問者のみ)

回答

良回答20pt
回答者：optimumsoup シート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
種類：回答
どんな人：一般人
自信：自信あり
回答日時：08/04/10 20:38
回答番号：No.2
この回答へのお礼この回答にお礼をつける(質問者のみ)

回答

 
回答者：CHRONOS_0 両方に共通するものだけ取り出したければ
比較するフィールドを結合したクエリを作ります
種類：回答
どんな人：経験者
自信：自信あり
回答日時：08/04/10 14:03
回答番号：No.1
この回答へのお礼この回答にお礼をつける(質問者のみ)
 
最新から表示｜回答順に表示｜良回答のみ表示
スポンサーサイト（詳細）
このページのトップへ