3.3 Разработка функций на vba
Рассмотрим разработку функций наVBA на примере создания диалогового окна для ввода имени и пароля. При создании форм и элементов управления Access устанавливает большинству свойств значения по умолчанию. Изменим значение свойства Модальное окно (Modal) формы в диалоговом окне Свойства (Properties). Для открытия формы как диалогового окна свойству Модальное окнонеобходимо присвоить значение Да (Yes) до открытия формы.
Первое свойство, которое мы изменим, — это Caption. Далее присвоим свойству ScroLLBars (Полосы прокрутки) значение 0, это означает, что на форме не будет полос прокрутки. Нам необходимо изменить внешний вид формы, чтобы она была как можно больше похожа на стандартные диалоговые окна Windows. Для этого изменим на противоположные значения по умолчанию значения следующих свойств: DividingLines (Разделительные линии), NavigationButtons (Кнопки перехода), RecordSelectors (Область выделения).
Существуют такие свойства формы, которые нельзя установить из диалогового окна Свойства — они изменяются только программно. Примером такого свойства является свойство Visible (Вывод на экран), которое использовали в приведенной ниже программе. У элементов управления тоже есть свойство Visible, но его значение можно изменять не только программно, но и из окна Свойства.
Private Sub Форма1()
Dim strFrm As String, blnOk As Boolean
strFrm = "Форма1"
'Открытие диалогового окна
DoCmd.OpenForm strFrm, , , , , acDialog
If CurrentProject.AllForms(strFrm).IsLoaded Then
'Проверка имени и пароля, например:
If Forms(strFrm).Поле0 = "Alex" And Forms(strFrm).Поле2 = "1990" Then
'Имя и пароль введены верно,
'закрываем диалоговое окно
DoCmd.Close acForm, strFrm
MsgBox "Добро пожаловать!", vbInformation, "Форма1"
blnOk = True
Else
'Имя и пароль введены неверно,
'подготавливаем диалоговое окно к новому запросу
MsgBox "Имя или пароль введены неверно!", _
vbExclamation, "Форма1"
blnOk = False
End If
strFrm = "Журналисты"
If blnOk Then
'Дальнейшие действия
DoCmd.OpenForm strFrm, , , , , acDialog
End If
End If
End Sub
На рисунке 42 представлена форма для ввода пароля.
Рисунок 42 – форма для ввода пароля
3.4 Создание главной кнопочной формы. Программирование Элементов управления формы.
Для облегчения доступа к таблицам, отчетам, запросам и т.д., а также наилучшего представления базы данных используют кнопочную форму. Создают её с помощью Конструктора форм. На ней создают кнопки, нажатию которых соответствует вызов различных процедур. Например, в главной форме есть кнопки перехода по записям, кнопки закрытия формы, вызова запросов и др.
Создадим главную кнопочную форму «Главная кнопочная форма», которая будет содержать следующие кнопки: «Формы для ввода данных», «Запросы», «Отчеты», «Макросы» и кнопка для выхода из БД. Главная кнопочная форма представлена на рисунке 43.
Рисунок 43 - Главная кнопочная форма
Заключение
Данная курсовая работа является примером использования интерфейсных средств СУБД MSAccess2003. В ней рассмотрены основные методы работы с объектамиMSAccess2003: таблицы, запросы, формы, отчёты. Приобретены навыки по созданию, удалению, изменению таблиц, запросов в автоматическом режиме, а также с использованием языка программированияVBA.
Были созданы формы с запрограммированными элементами управления с целью облегчения доступа к данным, быстрого поиска и т.д.
Список использованных источников 1. Хомоненко А.Д., Гридин В.В. Microsoft Access. Экспресс-курс. - СПб.: БХВ-Петербург, 2008.- 304.: ил. 2. Харитонова И.А., В. Михеева В.Д. Microsoft ACCESS 2000: разработка приложений. - СПб.: БХВ - Санкт-Петербург, 2009. - 832 с.: ил. 3. Гарнаев А.Ю. Использование MS Excel и VBA в экономике и финансах. - СПб, БХВ -Санкт-Петербург, 2007.