スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文　SELECT 元テーブル1．フィールド1 [ AS 新しいフィールド名1］,
　　　元テーブル2．フィールド1 [ AS 新しいフィールド名2］ 
　　　INTO  新しいテーブル名 FROM 元のテーブル1,元テーブル2;

SELECT INTOステートメントを使用して、複数のテーブルから新しいテーブルを作成します。SELECT句に続けてフィールド名を記述し、INTO句に新しいテーブル名を指定して、既存のテーブルから新しいテーブルを作成します。SELECT句には、元となるテーブルのフィールド名だけでなく、関数の戻り値を指定することもできます。フィールド名を記述するときは、どのテーブルのフィールドかを明確に記述します。既定では、新しいテーブルのフィールド名やデータ型はそのフィールドの元のテーブルの属性が引き継がれて作成されます。SELECT句の後に関数の戻り値を指定したり、元のテーブルとフィールド名を変更したい場合は、ASキーワードを使用して新しいテーブルのフィールド名を指定することができます。
新しく作成するテーブルと同じ名前のテーブルが既に存在する場合はエラーとなります。
サンプルでは、「社員テーブル」、「給与テーブル」、「部署テーブル」から「平均給与テーブル」という名前の新しいテーブルを作成します。「平均給与テーブル」の、「部署コード」、「部署名フィールド」の属性はそれぞれ「社員テーブル」、「部署テーブル」から引き継がれます。給与の平均値を表すAVG関数の戻り値のフィールドは、ASキーワードを使用して、「平均給与」というフィールド名で作成します。

●サンプル●
'複数のテーブルから新しいテーブルを作成する
Public Sub Sample()

    Dim myDB As Database
    Dim mySQL As String

    'SQLステートメントを定義する
    mySQL = "SELECT A.部署コード,C.部署名,AVG(給与) AS 平均給与 " & _
            "INTO 平均給与テーブル " & _
            "FROM 社員テーブル A,給与テーブル B,部署テーブル C " & _
            "WHERE A.社員コード=B.社員コード " & _
            "AND A.部署コード=C.部署コード " & _
            "GROUP BY A.部署コード,C.部署名;"

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'SQLを実行する
    myDB.Execute mySQL

End Sub