Сохранить изображение в MS Access 2016 Form Image Control в папку - PullRequest
Новая
       27

Сохранить изображение в MS Access 2016 Form Image Control в папку

0 голосов
/ 08 ноября 2019

Это моя первая публикация, и прежде чем я задам свой вопрос, я просто хочу сказать, насколько я ценю все время и усилия, которые все прилагают к решению этих проблем.

Я работаю над настройкойпростая система управления проектами, которая использует 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

Я знаю, что могу сохранить путь в виде текстав таблице доступа ... 

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

    rst.Close
    Set rst = Nothing
End Sub

... но мне нужно, чтобы фактический jpeg был сохранен в конкретной папке, чтобы его можно было использовать позже в приложении Excel.

Любая помощь, которую вы можете оказать, высоко ценится.

...