ExcelとDAOで販売管理ソフトを作る 社員マスターテーブルの作成 Step10

販売管理データベースに「社員マスター」テーブルを追加します。
新規にMDBファイルを作成することになるので、事前に「hanbai2009.mdb」を削除し、このブックを閉じ再度開いてください。

■社員マスターのフィールド
社員ID : オートナンバー型
氏名 : テキスト型(30)
フリガナ : テキスト型(30)
所属 : テキスト型(50)
メール : テキスト型(50)

■完成したテーブル（Accessのデザイン画面）

■テーブル作成コード

Private Function MyMakeSyainMaster(tdb As Database) As Boolean

Dim tbdef As TableDef

Dim fld As Field

Dim idx As DAO.Index
On Error GoTo ErrExit

'テーブル作成

Set tbdef = tdb.CreateTableDef("M_社員マスター")
'フィールドを作成します。

Set fld = tbdef.CreateField("社員ID", dbLong)

'オートナンバー型にします。

fld.Attributes = dbAutoIncrField

tbdef.Fields.Append fld
'フィールド作成

Set fld = tbdef.CreateField("氏名", dbText, 30)

tbdef.Fields.Append fld

Set fld = tbdef.CreateField("フリガナ", dbText, 30)

tbdef.Fields.Append fld

Set fld = tbdef.CreateField("所属", dbText, 50)

tbdef.Fields.Append fld

Set fld = tbdef.CreateField("メール", dbText, 50)

tbdef.Fields.Append fld

'主キーの作成

Set idx = tbdef.CreateIndex("PrimaryKey")

Set fld = idx.CreateField("社員ID", dbLong)

idx.Fields.Append fld

'Primaryプロパティをセット

idx.Primary = True

'インデックスを追加

tbdef.Indexes.Append idx

tdb.TableDefs.Append tbdef

'終了処理

Set fld = Nothing

Set tbdef = Nothing

MyMakeSyainMaster = True

Exit FunctionErrExit:

MyMakeSyainMaster = False

MsgBox "自社情報テーブル作成中にエラーが発生しました。処理を中止します。" & vbNewLine & Err.Description

End Function

■呼び出しコード

If bRet Then

bRet = MyMakeSyainMaster(db)

End If