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

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

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

Вот так примерно выглядит редактирование макроса в Microsoft Access 2016.

Public Function funCreateMacro(strMacro As String) As 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

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 Function

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

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