Das Buch im HTML-Format

Für unbestimmte Zeit bieten Addison-Wesley und André Minhorst den kompletten Inhalt des Buchs als Download an. Schauen Sie rein und informieren Sie sich über den Inhalt! Und wenn Ihnen das Buch nützlich erscheint und Sie glauben, dass Sie etwas gelernt haben oder durch das Gelesene sogar etwas Zeit und somit Geld bei Ihrer Arbeit einsparen konnten, können Sie sich ja beim Autor und beim Verlag revanchieren - beispielsweise durch den Kauf dieses Buchs.

Am schönsten wäre es natürlich, wenn Sie das Buch direkt hier bestellen - Sie erhalten das Buch dann direkt vom Verlag, und der Autor und Verlag haben dann noch mehr davon, als wenn Sie es anderswo kaufen.

Danke für Ihr Interesse!

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

© 2006-2008 André Minhorst Alle Rechte vorbehalten.