VBA, MS Access MS Access в примерах

Открытие файла программой по умолчанию

можно так же как и ссылки в Internet:

Файл:

Dim strPath As String
'Задаём путь:
    'strPath = "d:\Books\Programming\MS SQL Server\Инструкция по установке MS SQL Server 2008.pdf"
    strPath = Me!txtFPatch & ""
    If Dir(strPath) = "" Then
        MsgBox "Файл не найден!", vbExclamation
        Exit Sub
    End If
'Открываем файл
    Application.FollowHyperlink strPath


Вариант со ссылкой:

Dim strURL As String
'Задаём URL:
    strURL = "http://msa.polarcom.ru/"
'Открываем ссылку в браузере по умолчанию
    Application.FollowHyperlink strURL
Назад ToTop
L.E. 02.05.2020
Рейтинг@Mail.ru