Реферат: Создание информационной модели

Resume Exit_Cancel_Click

End Sub

Private Sub ОК_Click()

On Error GoTo Err_OK_Click

Dim strMsg As String, strTitle As String

Dim intStyle As Integer

' Если отчет о продажах по годам не был открыт для просмотра или печати, возникает ошибка.

' (Перем. blnOpening имеет значение True, только если для отчета произошло событие Open.)

If Not Reports![Дата].blnOpening Then Err.Raise 0

' Скрытие формы.

Me.Visible = False

Exit_OK_Click:

Exit Sub

Err_OK_Click:

strMsg = "Для использования формы нужно просматривать или печатать отчет 'Продажи по годам' из окна базы данных или конструктора."

intStyle = vbOKOnly

strTitle = "Открытие из отчета"

MsgBox strMsg, intStyle, strTitle

Resume Exit_OK_Click

End Sub

Private Sub Кнопка5_Click()

On Error GoTo Err_Кнопка5_Click

DoCmd.Close

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

End Sub