A. Создание модуля
Когда Вы разрабатываете базу данных, Вам потребуются общие программы, которые можно использовать при работе с формами или другими элементами базы данных. Давайте напишем небольшую программу, которая создает модуль «Настройка» путем импорта готовых Basic-программ.
B. Импорт программ модуля
Эта функция является продолжением предыдущих действий, описанных выше. С помощью нее мы сможем прочитать модуль «Настройка.bas» из папки «Программы» и разместить ее у себя в базе данных.
'Параметры:
' strBasic - название файла «Настройка.bas»
' strModule - название модуля «Настройка»
'
D. Включить панель отчетов
В этом разделе опишем еще одну программу модуля «Настройка». Используется она для работы с отчетами. Назначение ее - включить панель отчетов, чтобы пользователь смог отпечатать список расчета калькулятора.
С. Выключить панели инструментов
В предыдущем примере мы с Вами импортировали модуль «Настройка.bas». Далее дается описание программы, которая есть в этом модуле. Назначение ее - выключить все панели инструментов, чтобы они не мешали работе Калькулятора.
Public Function funCreateModule() As Boolean
On Error GoTo 999 'Переход по ошибке
funImportModule "Настройка.bas", "Настройка" '<5> Добавляем программу
Exit Function 'Выход из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
Public Function funImportModule(strBasic As String, strModule As String) As Boolean
Dim sFullPath As String
On Error GoTo 999
sFullPath = appFolder & "\Программы\" & strBasic 'Составляем файл
If Dir(sFullPath) <> "" Then 'Проверяем файл
With appAccess 'Указываем приложение
.VBE.ActiveVBProject.VBComponents.Import sFullPath 'Импортируем программу
.DoCmd.Save acModule, strModule 'Сохраняем программу
End With
Else
MsgBox "Файл: " & sFullPath & " не существует!" 'Сообщаем об ошибке
End If
Exit Function 'Выходим из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
Public Sub subBarOff()
Dim cbr As CommandBar
Application.SetOption "Строка состояния", False 'Гасим строку состояния
For Each cbr In Application.CommandBars 'Проверяем все панели
If cbr.Visible = True Then 'Проверяем отображение
DoCmd.ShowToolbar cbr.Name, acToolbarNo 'Гасим панель
End If
Next cbr
Public Sub subBarReport()
subBarOff 'Гасим все панели
DoCmd.ShowToolbar "Строка меню", acToolbarYes 'Отображаем
DoCmd.ShowToolbar "Предварительный просмотр", acToolbarYes 'Отображаем
