Access 2000 - курс лекций
a. Создание справки
Если Вы решили оставить общую справку по 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
