Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата



On Error GoTo Err_Cancel_Click

' Закрытие формы.

DoCmd.Close

Exit_Cancel_Click:

Exit Sub

Err_Cancel_Click:

MsgBox Err.Description

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

Форма “ПОДЧИНЁННАЯ ФОРМА ТОВАРА”

Option Compare Database

Option Explicit

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

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

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

Рекомендуем скачать другие рефераты по теме: сочинения по литературе, развитие россии реферат.

Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки