MS Access - кнопка открытия внешнего файла

Question

Я пытаюсь сделать кнопку, которая открывает файл в каком-то месте на диске. Но я все еще делаю что-то не так - код выдает какую-то ошибку. Мне нужна помощь с этим.

Обычно я пытался скомпилировать некоторый код, но я что-то делаю. Я смотрел эту тему: Откройте внешний файл с помощью кнопки в форме в Access 2007 , но, как я вижу, первый аргумент этой записи - это путь к .exe программы, которую я хочу использовать. Проблема в том, что я использую компьютер компании, и я не могу найти что-то вроде NOTEPAD.EXE для Acrobat Reader 2017 (нужно ли вводить другую вещь)?

Private Sub Polecenie45_Click()
    Call Shell("""C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Acrobat Reader 2017.exe"" ""C:\Users\myusername\Desktop\p1.pdf""", vbNormalFocus)
End Sub

Когда я нажимаю кнопку, я хочу открыть свой внешний файл - например, (в данном случае) файл PDF, в котором есть несколько изображений.

Answer 1

Я однажды нашел это где-то в сети, не могу вспомнить где.Я поместил его в свой собственный модуль и использовал, вызывая OpenFile, передавая полный путь к файлу в качестве параметра.
Здесь:

Option Compare Database
Option Explicit

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function OpenFile(sFileName As String)
On Error GoTo Err_OpenFile

    OpenFile = ShellExecute(Application.hWndAccessApp, "Open", sFileName, "", "C:\", 1)

Exit_OpenFile:
    Exit Function

Err_OpenFile:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_OpenFile

End Function

Этот модуль поставляется с тестом.Вы можете запустить его:

Public Function TestOpeningFile()
On Error GoTo Err_TestOpeningFile

    OpenFile "C:\Windows\Win.ini"' Replace this line with any file 

Exit_TestOpeningFile:
    Exit Function

Err_TestOpeningFile:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_TestOpeningFile

End Function