9.6.3 Autowert anlegen
9.6.4 Attachment-Feld anlegen
Die folgende Routine erzeugt eine Tabelle mit einem Feld des Typs Attachment. Die passende Konstante finden Sie in Tabelle 9.1.
Public Sub TabelleMitAttachmentfeldAnlegen()'
Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field2 Set db = CurrentDb Set tdf = db.CreateTableDef tdf.Name = "tblDateien" Set fld = tdf.CreateField("DateiID", dbLong) fld.Attributes = dbAutoIncrField tdf.Fields.Append fld Set fld = tdf.CreateField("Datei", dbAttachment) tdf.Fields.Append fld db.TableDefs. Append tdf db.TableDefs. Refresh Application. RefreshDatabaseWindow Set db = Nothing
End Sub
Listing 9.9: Anlegen von Feldern mit den neuen Datentypen von Access 2007
Abbildung 9.5 zeigt die Tabelle mit dem neuen Attachment-Feld.

Abbildung 9.5: Eine per DAO erstellte Tabelle mit Attachment-Feld
Nächster Abschnitt:
9.6.5 Mehrwertige Felder anlegen
|