Microsoft Access Programmierrezepte

R6.12 Ein Rich-Text-Feld erstellen

Hinweis

Dieses Feature ist nur mit Microsoft Access 2007/2010-Datenbanken realisierbar!

Aufgabe

Sie möchten in einer Tabelle ein Rich-Text-Feld erstellen (HTML-Formatierungen).

Lösung DAO

Prinzipiell könnten Sie auch ein Memofeld verwenden, in diesem Fall erkennt jedoch die Datenblatt-Ansicht nicht, dass es sich um formatierte Inhalte handelt. Setzen Sie aus diesem Grund die Eigenschaft TextFormat auf 1.

Sub CreateRichTextField()
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld As DAO.field
Dim prop As DAO.Property

   Set db = CurrentDb()
   Set td = db.CreateTableDef("Test2")
   Set fld = td.CreateField("Id", dbLong)
   td.Fields.Append fld

   Set fld = td.CreateField("Bemerkung", dbMemo) td.Fields.Append fld db.TableDefs.Append ...