Thema Datum  Von Nutzer Rating
Antwort
28.03.2017 00:22:29 Oliver
NotSolved
Blau Anlage in Ordner exportieren - Access 2010
 28.03.2017 13:43:41 SJ
****
Solved
29.03.2017 22:58:08 Oliver
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
28.03.2017 13:43:41		 Views:
982		 Rating:
     
Antwort:
 Nein
Thema:
Anlage in Ordner exportieren - Access 2010

Hallo,

das geht zum Beispiel so:

Option Compare Database
Option Explicit

Private Const TABLE_NAME As String = "tbl_Anlagen"
Private Const FIELD_NAME As String = "Anlage"
Private Const PATH As String = "C:\Users\Benutzer\Desktop\tmp"

Public Sub save_attachments()
    On Error GoTo errorhandler
    Dim db As DAO.Database
    Dim rs As DAO.Recordset, rs1 As DAO.Recordset
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT " & FIELD_NAME & " FROM " & TABLE_NAME & ";")
    
    Do While Not rs.EOF
        Set rs1 = rs.Fields(FIELD_NAME).Value
        
        Do While Not rs1.EOF
            rs1.Fields("FileData").SaveToFile PATH
            rs1.MoveNext
        Loop
        
        rs.MoveNext
    Loop
    On Error GoTo 0
    
clean_up:
    Set rs1 = Nothing
    Set rs = Nothing
    Set db = Nothing
    
    Exit Sub
    
errorhandler:
    MsgBox "Es ist leider ein Fehler beim Speichern der Anlagen aufgetreteten." & vbCrLf & _
        "Fehlernummer: " & Err.Number & vbCrLf & _
        "Fehlerbeschreibung: " & Err.Description, vbExclamation
    GoTo clean_up
End Sub

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.03.2017 00:22:29 Oliver
NotSolved
Blau Anlage in Ordner exportieren - Access 2010
 28.03.2017 13:43:41 SJ
****
Solved
29.03.2017 22:58:08 Oliver
NotSolved