时间戳

首页 > 解决方案 > 将 MS Access 2016 表单图像控件中的图片保存到文件夹

vba - 将 MS Access 2016 表单图像控件中的图片保存到文件夹

问题描述

这是我第一次发帖，在我提出问题之前，我只想说我非常感谢每个人为解决这些问题所付出的所有时间和努力。

我正在建立一个使用 MS Access 和 Excel 的简单项目管理系统。通过 Access 中的各种表单，用户可以使用名称、地址、徽标等设置新项目。对于徽标，用户可以双击图像控制框并从他们选择的任何文件夹中选择 jpeg。

我的问题是保存徽标。当用户单击“保存”按钮时，我想将图片保存到特定文件夹中，而不是用户选择的文件夹中。

该代码按预期工作，为我提供了用户从中选择图片并显示图片的文件路径。

Private Sub CompLogo_DblClick(Cancel As Integer)

Dim sFile As String

With Application.FileDialog(msoFileDialogFilePicker)
   .AllowMultiSelect = False
   .Title = "Choose Logo"
   .Filters.Clear
   .Filters.Add "JPEG", "*.jpg"
   If .Show = -1 Then
      sFile = .SelectedItems(1)
   End If
End With

If sFile <> "" Then
    Me.CompLogo.Picture = sFile
End If

End Sub

我知道我可以将路径保存为 Access 表中的文本...

Sub SaveNewProject()    
    Set rst = CurrentDb.OpenRecordset("ProjectsTbl", dbOpenTable)
        rst.AddNew
        rst!Logo = LogoFilePath
        rst.Update 

    rst.Close
    Set rst = Nothing
End Sub

...但我需要将实际的 jpeg 保存在特定文件夹中，以便稍后在程序的 Excel 端使用它。

非常感谢您提供的任何帮助。

标签： vbaformsimagems-access

解决方案

推荐阅读