Hallo liebe VBA Leute,
würde gerne Anlagen die ich in einer tabelle "tbl_Rechnungen" habe in einen Ordner speichern.
C:\Dokumente und Einstellungen\Office\Eigene Dateien\Rechnungen
Wäre mir sehr geholfen wenn mir jemand einen Code dafür geben könnte.
Danke im Voraus
Lg Albert
Hallo habe den code in der Hilfe gefunden.
Weis aber leider nicht ob der in meiner Situation passt und weis auch nicht wo ich Ihn eingeben muss.
Hab die Tabelle geöffnet aber da kann ich ja nicht in den editor.
' Instantiate the parent recordset.
Set rsEmployees = db.OpenRecordset("Employees")
... Code to move to desired employee
' Instantiate the child recordset.
Set rsPictures = rsEmployees.Fields("Pictures").Value
' Loop through the attachments.
While Not rsPictures.EOF
' Save current attachment to disk in the "My Documents" folder.
rsPictures.Fields("FileData").SaveToFile _
"C:\Documents and Settings\Username\My Documents"
rsPictures.MoveNext
Wend
Danke nochmals