Програма функцій

Option Compare Database

Option Explicit

' Функции из данного модуля используются формой "Заставка".

Function OpenStartup()

DoCmd.OpenForm ("Заставка")

End Function

Function CloseForm()

' Закрывает форму "Заставка".

' Используется в свойстве OnClick кнопки "OK" в форме "Заставка".

39

DoCmd.Close

DoCmd.OpenForm ("Головна кнопочна форма")

End Function

Function IsLoaded(ByVal strFormName As String) As Boolean

im oAccessObject As AccessObject

Set oAccessObject = CurrentProject.AllForms(strFormName)

If oAccessObject.IsLoaded Then

If oAccessObject.CurrentView <> acCurViewDesign Then

IsLoaded = True

End If

End If

End Function

40

Додаток а Вихідні документи

Рисунок А.1 – Загальна відомість

41

Рисунок А.2 – Відомість по певному прізвищу

42

Р

43

исунок А.3 – Пошук по даті народження

- 44 -