вторник, 29 декабря 2015 г.

Microsoft Access. Создание макроса и справки

При открытии любой базы данных автоматически запускается макрос AutoExec, вспомните командный файл DOS «autoexec.bat». В этот макрос для примера можно вставить программы Access, например, команду увеличения приложения до максимального размера и команду открытия формы «Мой калькулятор».
Вот так примерно выглядит редактирование макроса в Microsoft Access 2016.



Public Function funCreateMacro(strMacro As StringAs Boolean
        Dim frm As Form
        On Error GoTo 999 'Переход по ошибке
        funCreateMacro = False 'Возвращаем значение при ошибке
        'Импортируем макрос
        appAccess.DoCmd.TransferDatabase(acImport, "Microsoft Access", appFolder & "\Старый калькулятор.mdb", acMacro, strMacro, strMacro)
        funCreateMacro = True 'Возвращаем значение
        Exit Function 'Выходим из программы
999:
        MsgBox Err.Description 'Сообщаем об ошибке
        Err.Clear() 'Очищаем поток от ошибок
    End Function


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

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

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

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

СОЗДАНИЕ СПРАВКИ

Если Вы решили оставить общую справку по Access, которая вызывается нажатием F1, то можно написать программу, отображающую Ваш собственный файл: «Калькулятор.chm» при нажатии кнопки меню.  Команда Shell выглядит так: hh.exe -mapid 103 Калькулятор.chm
   Public Function funCreateNewHelp()
        Dim fs, s As String, hlp As String
        On Error GoTo 999
        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

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

В Access 2016 не работает. Ваша программа будет эффектно выглядеть, если Вы научитесь программировать помощника Access. Ниже написана функция, которая создает на экране сообщения в виде всплывающих ответов от «котенка».
Помните, что если Вы выключили помощника, то он при нажатии меню высвечиваться не будет, его необходимо включить снова.
Public Function funCreateAssistant()
       Dim bln As Balloon, s As String
       With Application.Assistant 'Выбираем помошника
           .Visible = True 'Вывод на экран
           .Animation = msoAnimationAppear 'Включаем анимацию
           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
           bln = .NewBalloon 'Создаем нового помощника
           With bln
               .Heading = "Пример выражения" 'Устанавливаем заголовок
               .Text = s 'Выводим назначенный текст, см. выше
               .Button = msoButtonSetOK 'Отображаем клавишу OK
               .Show() 'Показываем помощника
           End With
       End With
   End Function

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

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

ОГЛАВЛЕНИЕ

ССЫЛКИ ПО ТЕМЕ

Загрузить исходники по теме (скоро …)

Комментариев нет: