ハイパーリンク型の場合、エラーになります。

質問

DAOでテーブルを作成しようとすると
ハイパーリンク型の場合、エラーになります。

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

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

Set Field1 = tbdef.CreateField("氏名", dbHyperlinkField)

tbdef.Fields.Append Field1
db.TableDefs.Append tbdef

db.Close: Set db = Nothing
End Sub

Type プロパティ
のヘルプを見ると、dbHyperlinkFieldはないのですが
dbHyperlinkFieldではないのでしょうか？

DAO.DataTypeEnum のメンバの中にもハイパーリンクはないようです。

回答No.1

piroin654 · ベストアンサー

>Set Field1 = tbdef.CreateField("氏名", dbHyperlinkField

を

Set Field1 = tbdef.CreateField("氏名", dbMemo)
Field1.Attributes = dbHyperlinkField

で、どうですか。ADOとハイパーリンクについては以下に。
http://msdn.microsoft.com/ja-jp/library/cc376282.aspx

お礼

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