如何在DAO中创建备注字段时设置富文本属性？

Question

我正在DAO中创建一个包含备注字段的表。 但是，我不知道如何为该字段设置/创建rich text property。

以下代码给出了运行时错误：

Sub CreateTable()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field2
Set db = CurrentDb

' Create table
Set tdf = db.CreateTableDef
tdf.Name = "myTable"

Set fld = tdf.CreateField("memo_field", dbMemo)
fld.Properties("TextFormat").Value = acTextFormatHTMLRichText   '<- getting error here
tdf.Fields.Append fld

db.TableDefs.Append tdf
db.TableDefs.Refresh
Application.RefreshDatabaseWindow
Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
End Sub

forum中有人建议这样的内容，

fld.Properties.Append fld.CreateProperty("TextFormat", dbByte, acTextFormatHTMLRichText)

但我无法实现这一点。 我想我只是把语法弄错了。实现这个的正确方法是什么？ 谢谢你的帮助！

Answer 1

您可能无法将属性附加到尚未附加到TableDef的字段。

尝试：

Set fld = tdf.CreateField("memo_field", dbMemo)
tdf.Fields.Append fld
tdf.Fields(fld.Name).Properties.Append fld.CreateProperty("TextFormat", dbByte, acTextFormatHTMLRichText)