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

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

B. Создание помощника

     Ваша программа будет эффектно выглядеть, если Вы научитесь программировать помощника Access. Ниже написана функция, которая создает на экране сообщения в виде всплывающих ответов от «котенка».

     Помните, что если Вы выключили помощника, то он при нажатии меню высвечиваться не будет, его необходимо включить снова.

С. Проверка знаний

     Теперь Вы научились создавать различные справочные системы в Access и можете комментировать свою программу. Для просмотра объектов базы данных нажмите кнопку [Проверка N9], для продолжения учебы, нажмите кнопку Вперед>

08.06.2000 Виктор Конюков, mailto:LiderAccess@bigfoot.com

Public Function funCreateAssistant()

Dim bln As Balloon, s As String

    With Application.Assistant 'Выбираем помошника

        .Visible = True 'Вывод на экран

        .Animation = msoAnimationAppear 'Включаем анимацию

        Set bln = .NewBalloon 'Создаем сообщение

        With bln

            .Heading = "Калькулятор позволяет" 'Устанавливаем заголовок

            .Labels(1).Text = "Вводить выражения" 'Включаем меню 1

            .Labels(2).Text = "Вводить формулы" 'Включаем меню 2

            .BalloonType = msoBalloonTypeButtons 'Устанавливаем тип меню

            .Button = msoButtonSetNone 'Отключаем клавиши помощника

            Select Case .Show 'Отображаем помощника

            Case 1:  s = "23-456/35" 'Назначаем 1 сообщение

            Case 2:  s = "sin(0.5)"  'Назначаем 2 сообщение

            End Select 'Конец вариантов

        End With

        Set bln = .NewBalloon 'Создаем нового помощника

        With bln

            .Heading = "Пример выражения" 'Устанавливаем заголовок

            .Text = s 'Выводим назначенный текст, см. выше

            .Button = msoButtonSetOK 'Отображаем клавишу OK

            .Show 'Показываем помощника

        End With

    End With

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 'Очищаем поток от ошибок

---

---