Microsoft Office Access 2007-Programmierung - Das Handbuch

HINWEIS

Dim fdlg As FileDialog

On Error Resume Next

Set rsPersonal = Me.Recordset

Set fdlg = Application.FileDialog(msoFileDialogOpen)

If fdlg.Show Then

rsPersonal.Edit

Ein Recordset auf Basis des Anlagefeldes wird geöffnet:

Set rsFotos = rsPersonal.Fields("Fotos").Value

Eine neue Datei wird eingefügt:

With rsFotos

Neuer Datensatz für die Datei:

.AddNew

Die eigentlichen Daten einlesen:

.Fields("FileData").LoadFromFile (fdlg.SelectedItems(1))

Und Speichern:

.Update

End With

rsPersonal.Update

End If

End Sub

Das Löschen der aktuellen Anlage:

Private Sub Befehl2_Click()

On Error Resume Next

Set rsPersonal = Me.Recordset

rsPersonal.Edit

Set rsFotos = rsPersonal.Fields("Fotos").Value

rsFotos.Delete

rsPersonal.Update

End Sub

Das komplette Beispiel finden Sie auf der Buch-CD. Weitere Informationen (Erzeugen, Filtern etc.) zur Arbeit

mit Anlage-Feldern finden Sie in den Kapiteln 8 (SQL) und 9 (ADOX).

Auf mehrwertige Felder zugreifen

Sie wollen eine m:n-Beziehung auf einfache Weise realisieren, ohne dazu erst eine Interselektionstabelle er-

stellen zu müssen. Auf die Einträge wollen Sie per Code zugreifen. Verwenden Sie dazu ein mehrwertiges

Feld (MVF = Multi Value Field), wie es unter Access 2007 neu eingeführt wurde.

331

Arbeiten mit Recordsets