Пример 10
Sub Form_Timer()
Dim db As Database
Dim R As RecordSet
Set db = DBEngine.WorkSpaces(0).Databases(0)
Set R = db. OpenRecordSet ("Заставка")
If Me.TimerInterval <> 0 Then
If R.Fields("Отображать").Value = 0 Then
DoCmd.OpenForm "Введение"
Else
DoCmd.OpenForm "Счет"
End If
End If
R.Close
DoCmd.Close A_Form, "Заставка"
End Sub
Обычно при открытии БД вначале выводится специальная заставка. Это можно обеспечить командой Сервис|Параметры запуска, которая открывает диалоговое окно, содержащее поле для ввода имени формы-заставки.
Процедура обработки события Form_Timer установлена в модуле формы "Заставка". Заставка выводится кратковременно со сведениями о правах интеллектуальной собственности, эмблеме и т.п. Затем открывается форма Введение, содержащая более подробные сведения о приложении.
Закрытие формы Введение приводит к запуску формы, с которой и ведется основная работа (в рассматриваемом примере это форма Счет). Для этого необходимо свойству Закрытие формы Введение присвоить процедуру обработки события
Private Sub Form_Close()
DoCmd.OpenForm("Счет")
End Sub
Для закрытия формы Введение можно установить кнопку с помощью мастера кнопок.
Вывод формы Введение можно отменить и сразу перейти к форме Счет. Для этого на форме Введение следует установить флажок с подписью "Не отображать введение". Для запоминания состояния флажка служит таблица Заставка с одним полем "Отображать" логического типа.
Инструкция Set устанавливает переменную R на таблицу Заставка.
Внешняя инструкция If проверяет значение свойства формы TimerInterval (Интервал таймера). Если оно не равно нулю, выполняется внутренняя инструкция If. В ней проверяется состояние поля "Отображать" таблицы Заставка. Если в нем записано Нет (флажок "Не отображать введение" не установлен), то с помощью метода OpenForm открывается форма Введение. Если флажок установлен, открывается форма Счет.