Access 2013 msoFileDialogSaveAs 不保存图像

Question

在 DAO 数据库 Access 2013 中，我在 msoFileDialogSaveAs 应用程序的设置图像行收到编译语法错误。我最好猜测如何保存 jpg 文件的代码。在对论坛和 MS Developer/Support DB 进行研究后，我进行了试验，这是我最接近解决的问题。关于如何成功地允许最终用户从内部访问将 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，让用户 select 从他的桌面（或任何地方）获取文件。
参见 How to show "Open File" Dialog in Access 2007 VBA?

然后从您的客户 table 处读取客户文件夹路径（服务器路径）（例如 DLookup）。

使用FileCopy将selected文件复制到服务器路径。

如果您有包含所有客户文件的 table，请向其中添加 Server Path\file name。

注意：文件和文件夹的区别大家一定要看清楚，不然大家都一头雾水。

Access 2013 msoFileDialogSaveAs 不保存图像

Access 2013 msoFileDialogSaveAs Not Saving Image

ms-access

vba

dao

image

save-as