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

●概要●
構文　SELECT * INTO  新しいテーブル名　FROM 元のテーブル名;

SELECT句に続けてINTO句に新しいテーブル名を指定して、既存のテーブルから新しいテーブルを作成します。SELECT句ではフィールド名を記述して、指定したフィールドのみで新しいテーブルを作成することもできます。また、SELECT句に関数の戻り値を指定することもできます。既定では、新しいテーブルのフィールド名やデータ型は元のテーブルの属性が引き継がれて作成されます。サンプルでは、「社員テーブル」から「職種がマネージャ」のレコードを抽出し、新たに「マネージャテーブル」を作成します。

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

    Dim myDB As Database
    Dim mySQL As String

    'SQLステートメントを定義する
    mySQL = "SELECT *  INTO マネージャテーブル FROM 社員テーブル " & _
            "WHERE 職種='マネージャ';"

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

End Sub