即効テクニック |
テーブルを新規に作成する場合は、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