即効テクニック

データベース・データ保護

テーブルを新規作成する

(Access)
テーブルを新規に作成する場合は、CreateTableDefメソッドを使います。
CreateTableDefメソッドを使って作成したテーブルは、CreateFieldメソッドでフィールド名・データ型・サイズを設定します。
サンプルプロシージャでは、「名簿テーブル」を作成して、次の3つのフィールドを設定しています。

 氏名フィールド  :テキスト型、フィールドサイズ30
 登録番号フィールド:数値型
 登録日      :日付/時刻型

標準モジュールに次のプロシージャを作成してください。
DAOを使用していますので、[ツール(T)]メニューの[参照設定(R)]をクリックすると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6 Object Library」をチェックしてください。
サンプルプログラムを実行すると、「名簿テーブル」が作成されて、デザインビューで開かれます。

Sub Sample()

    Dim db As Database
    Dim Newtb As TableDef

    Set db = CurrentDb

    Set Newtb = db.CreateTableDef("名簿テーブル")

    With Newtb
        .Fields.Append .CreateField("氏名", dbText, 30)
        .Fields.Append .CreateField("登録番号", dbInteger)
        .Fields.Append .CreateField("登録日", dbDate)
    End With

    db.TableDefs.Append Newtb

    DoCmd.OpenTable "名簿テーブル", acViewDesign

End Sub