DAOでテーブルを作成

質問

DAOでテーブルを作成したいのですが
主キーにしてオートナンバー型にするにはどうすればいいですか？

Sub MyTableCreate()
Dim db As DAO.Database
Dim tbdef As DAO.TableDef
Dim Field1 As DAO.Field
Dim Field2 As DAO.Field

Set db = CurrentDb
Set tbdef = db.CreateTableDef("T_test")

Set Field1 = tbdef.CreateField("ID", dbInteger)
Set Field2 = tbdef.CreateField("氏名", dbText, 20)

tbdef.Fields.Append Field1
tbdef.Fields.Append Field2

db.TableDefs.Append tbdef

db.Close: Set db = Nothing
End Sub

これで、IDフィールドを主キーにしつつ、
dbIntegerではなくオートナンバー型にしつつ、
主キーを付与する方法を教えてください。

DAOのType プロパティのヘルプを見たのですがありませんでした。

今回は
http://www.accessclub.jp/dao/20.html
を参考にしました。

回答No.1

masatsan · ベストアンサー

http://www.nurs.or.jp/~ppoy/access/access/acM062.html
があります。

お礼

リンク先の方法試してみました。
しかし、当方アクセス２００３のせいか、
主キーのフィールドがオートナンバー型ではなく数値型になってしまいます。

dbLongで、普通ならオートナンバー型になるのでしょうか？

回答No.2

masatsan

オートナンバーは長整数型ですね。dbLongが必要なんですね。

お礼

ありがとうございました。