Создание справки

Если Вы решили оставить общую справку по Access, которая вызывается нажатием F1, то можно написать программу, отображающую Ваш собственный файл: «Калькулятор.chm» при нажатии кнопки меню.  Команда Shell выглядит так: hh.exe -mapid 103 Калькулятор.chm.

 

Public Function funCreateNewHelp()

Dim fs, s As String, hlp As String

On Error GoTo 999

    Set fs = CreateObject("Scripting.FileSystemObject") 'Создаем файловую систему

    s = fs.GetSpecialFolder(0) & "\hh.exe"  'Составляем hh.exe файл

    If Dir(s) <> "" Then 'Проверяем exe-файл

        hlp = fs.GetFile(CurrentDb.Name).ParentFolder & "\Калькулятор.chm" 'Находим справку

        If Dir(hlp) <> "" Then 'Проверяем файл справки

            s = """" & s & """ -mapid " & 103 & " """ & hlp & """" 'Составляем команду

            Shell s, vbMaximizedFocus 'Запускаем справку

        End If

    End If

    Exit Function 'Выходим из программы

999:

    Err.Clear 'Очищаем поток от ошибок

End Function


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=10254