Доступ к 2013 году msoFileDialogSaveAs Не сохраняет изображение

Question

В DAO db, Access 2013, я получаю синтаксическую ошибку компиляции на линии Set Image в приложении msoFileDialogSaveAs. Я лучше всего угадываю код о том, как сохранить файл jpg. После исследований на форумах и MS Developer/Support DB я экспериментировал, и это самое близкое, что я пришел к разрешению. Любые идеи о том, как успешно разрешить конечному пользователю сохранять файл jpg в системе, но не сам db, из внутреннего доступа? Мне неудобно использовать API на этом этапе.

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

Что я делаю вывод из дискуссии:

Вы хотите диалог msoFileDialogFilePicker, не msoFileDialogSaveAs, чтобы позволить пользователю выбрать файл из своего рабочего стола (или где).
См How to show "Open File" Dialog in Access 2007 VBA?

Затем прочитайте путь к папке клиента (путь сервера) из таблицы клиентов (например, с DLookup).

Используйте FileCopy, чтобы скопировать выбранный файл на путь к серверу.

Если у вас есть таблица со всеми файлами клиента, добавьте к ней Server Path\file name.

Примечание: вам действительно нужно смотреть различие файла против папки, или все путается.