Zugriff 2013 msoFileDialogSaveAs Kein Speichern von Image

Question

In einer DAO-Datenbank, Access 2013, erhalte ich einen Compile-Syntaxfehler in der Zeile Set Image in der Anwendung msoFileDialogSaveAs. Ich bin am besten über den Code für das Speichern der JPG-Datei. Nach Recherchen über Foren und die MS Developer/Support DB habe ich experimentiert und das ist das nächste, was ich zur Lösung gebracht habe. Irgendwelche Ideen, wie man dem Endanwender erlaubt, eine jpg-Datei im System zu speichern, aber nicht die db selbst, von innen Zugriff? Mir ist es unangenehm, die API zu diesem Zeitpunkt zu verwenden.

Option Compare Database 
    Option Explicit 
    Dim FileLocation As String 
    Dim DiagFile As FileDialog 

    Private Sub Jpgbtn_Click() 
     Set DiagFile = Application.FileDialog(msoFileDialogSaveAs) 
     DiagFile.Title = "Save .jpg File As..." 
     DiagFile.InitialFileName = "*.jpg" 
     DiagFile.AllowMultiSelect = False 
     If DiagFile.Show Then 
      FileLocation = DiagFile.SelectedItems(1) 
      Set Image = CreateObject("*.jpg") 
     >>>>>Set Image = file.Item "*.jpg" 
      Image.SaveFile FileLocation 
     End If 
     MsgBox (" Jpg successfully saved. ") 
     globals.ActivityLog "Jpgbtn" 
    End Sub 

Answer 1

Was ich aus der Diskussion schließen:

Sie wollen einen msoFileDialogFilePicker Dialog, nicht msoFileDialogSaveAs, der Benutzer zu lassen, eine Datei von seinem Desktop aus (oder wo auch immer).
Siehe How to show "Open File" Dialog in Access 2007 VBA?

dann den Kunden Ordnerpfad (Serverpfad) von Ihrer Kundentabelle (zum Beispiel mit DLookup) lesen.

Verwenden Sie FileCopy, um die ausgewählte Datei in den Serverpfad zu kopieren. Wenn Sie eine Tabelle mit allen Kundendateien haben, fügen Sie Server Path\file name hinzu.

Hinweis: Sie wirklich brauchen die Unterscheidung von Datei vs. Ordner oder jeder ist verwirrt zu beobachten.