Microsoft Access Programmierrezepte

R6.11 Ein Memofeld mit Archiv-Funktion erzeugen

Hinweis

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

Aufgabe

Sie möchten in einer Tabelle ein »Nur anfügen«-Feld erzeugen.

Abbildung 6.7 »Nur anfügen«-Feld

Lösung DAO

Erzeugen Sie zunächst ein normales Memofeld und setzen Sie später die Eigenschaft AppendOnly auf True.

Beispiel

Tabelle mit »Nur anfügen«-Feld

Sub CreateTable()
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld As DAO.field

  Set db = CurrentDb()
  Set td = db.CreateTableDef("tblNurAnfuegen")

  Set fld = td.CreateField("Id", dbLong)
  td.Fields.Append fld

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