Вы можете адаптировать методы из этого образца кода.
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Set db = CurrentDb
Set tdf = db.TableDefs("Table1")
Set fld = tdf.Fields("memo_fld")
Debug.Print "acTextFormatPlain: " & acTextFormatPlain & _
"; acTextFormatHTMLRichText: " & acTextFormatHTMLRichText
With fld.Properties("TextFormat")
Debug.Print "TextFormat: " & .Value
If .Value = acTextFormatPlain Then
.Value = acTextFormatHTMLRichText
Debug.Print "TextFormat changed to: " & .Value
End If
End With
Обратите внимание, что код запускается из базы данных, содержащей целевую таблицу. Если Table1
на самом деле является ссылкой на таблицу в другом файле db Access, код не будет работать.
Обратите внимание, что это относится только к полю memo. Свойство TextFormat не создано для обычных текстовых типов данных, поэтому это вызовет ошибку # 3270, «Свойство не найдено.»
Debug.Print tdf.Fields("some_text").Properties("TextFormat").Value
Поскольку вы будете преобразовывать обычные текстовые поля в поля заметок, этот вопрос, вероятно, не вызывает беспокойства. Я упомянул об этом только в том случае, если вы наткнулись на него.
ColeValleyGirl обнаружил, что свойство TextFormat не всегда создается для нового поля memo.