访问 2013 msoFileDialogSaveAs 不保存图像

Question

在 DAO 数据库 Access 2013 中，我在 msoFileDialogSaveAs 应用程序的设置图像行上收到编译语法错误。我最好猜测如何保存 jpg 文件的代码。在跨论坛和 MS 开发人员/支持数据库进行研究之后，我进行了实验，这是我最接近解决方案的方法。关于如何成功地允许最终用户从内部访问将 jpg 文件保存到系统而不是数据库本身的任何想法？在这一点上，我对使用 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 添加到其中。

注意：文件和文件夹的区别你真的需要看清楚，不然大家都糊涂了。