ник: час
Решил делать так.
В таблицу в поле буду записывать путь к файлу, а в модуле буду держать функцию открытия.
Public Function FUN_OPEN_FILES_SHELL(PATH_FILE As String)
' открытие файла родной программой
'PATH_FILE = Chr(34) & "E:\_1_Клиенты\53.pdf" & Chr(34)
Dim Wshell
On Error GoTo NoData
If FUN_FILE_YES_NO(PATH_FILE) = False Then
MESS ("Нет файла по указанному пути " & PATH_FILE)
Exit Function
End If
Set Wshell = CreateObject("WScript.Shell")
Call Wshell.Run(PATH_FILE, 3, True)
Exit Function
NoData:
MESS ("Не удалось открыть файл")
End Function
|