table_aとtable_bにある値の組み合わせ全パターンをクエリで作りたい

すいません。質問があります。

table_aとtable_bにある値の組み合わせ全パターンをクエリで作りたい

table_aとtable_bにある値を全て組み合わせるとはクエリで出来たと思うのですが、
どうもうまくいきませんでした。。。

大変お手数ですが教えて頂けると幸いです。

画像にあるとおりですが、depの値とarrの値を組み合わせて、depxarrの全パターンを作るとしたいです。

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

No.2 回答者： y504 回答日時： 2017/01/30 11:38

クエリデザインでtable_a、table_bを追加

フィールドにdepxarr:[dep]&[arr]
25パターン
画像を見るとaa、bb、cc、dd、eeは除かれているのでこの条件を入れるなら
抽出条件に[dep]<>[arr]
20パターン

No.1 回答者： usui-2015 回答日時： 2017/01/29 21:11

入力は、arrとdep。

出力は、deparr

arrとdepを連結の処理は入れていません。

Option Compare Database

Function make()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strsql

Set db = CurrentDb
Set rs = db.OpenRecordset("select * from arr order by id asc;")

rs.MoveFirst
While Not rs.EOF
strsql = "INSERT INTO deparr ( arr, dep ) " & _
"SELECT '" & rs![arr] & "' AS arr, dep.dep " & _
"FROM dep order by id asc;"
Debug.Print strsql
db.Execute (strsql)
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
End Function