这是我的第一次发布,在我提出问题之前,我只想说我对所有人在解决这些问题上投入的所有时间和精力表示感谢。
我正在建立一个同时使用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端使用。
非常感谢您能提供的帮助。