Проектирование и разработка баз и банков данных
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
?Створ]![ПереходКПервойЗаписиВПредприятиях].Доступ = 1
Forms![КонтрольныйСтвор]![ПереходКПредыдущейЗаписиВПредприятиях].Доступ = 1
Forms![КонтрольныйСтвор]![ПереходКСледующейЗаписиВПредприятиях].Доступ = 1
Forms![КонтрольныйСтвор]![ПереходКПоследнейЗаписиВПредприятиях].Доступ = 1
Forms![КонтрольныйСтвор]![Кнопка20].Доступ = 1
Forms![КонтрольныйСтвор]![Кнопка21].Доступ = 1
Forms![КонтрольныйСтвор]![Кнопка22].Доступ = 1
Forms![КонтрольныйСтвор]![Название].Доступ = 1
End Sub
Sub ВыходИзФормыКонтроль_Click ()
On Error GoTo Err_ВыходИзФормыКонтроль_Click
DoCmd Close
Exit_ВыходИзФормыКонтроль_Click:
Exit Sub
Err_ВыходИзФормыКонтроль_Click:
MsgBox Error$
Resume Exit_ВыходИзФормыКонтроль_Click
End Sub
Sub Кнопка20_Click ()
On Error GoTo Err_Кнопка20_Click
DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Error$
Resume Exit_Кнопка20_Click
End Sub
Sub Кнопка21_Click ()
On Error GoTo Err_Кнопка21_Click
DoCmd GoToRecord , , A_NEWREC
Exit_Кнопка21_Click:
Exit Sub
Err_Кнопка21_Click:
MsgBox Error$
Resume Exit_Кнопка21_Click
End Sub
Sub Кнопка22_Click ()
On Error GoTo Err_Кнопка22_Click
DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20
DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20
Exit_Кнопка22_Click:
Exit Sub
Err_Кнопка22_Click:
MsgBox Error$
Resume Exit_Кнопка22_Click
End Sub
Sub ПереходКПервойЗаписи_Click ()
On Error GoTo Err_ПереходКПервойЗаписи_Click
DoCmd GoToRecord , , A_FIRST
Exit_ПереходКПервойЗаписи_Click:
Exit Sub
Err_ПереходКПервойЗаписи_Click:
MsgBox Error$
Resume Exit_ПереходКПервойЗаписи_Click
End Sub
Sub ПереходКПоследнейЗап_Click ()
On Error GoTo Err_ПереходКПоследнейЗап_Click
DoCmd GoToRecord , , A_LAST
Exit_ПереходКПоследнейЗап_Click:
Exit Sub
Err_ПереходКПоследнейЗап_Click:
MsgBox Error$
Resume Exit_ПереходКПоследнейЗап_Click
End Sub
Sub ПереходКПредыдущейЗа_Click ()
On Error GoTo Err_ПереходКПредыдущейЗа_Click
DoCmd GoToRecord , , A_PREVIOUS
Exit_ПереходКПредыдущейЗа_Click:
Exit Sub
Err_ПереходКПредыдущейЗа_Click:
If Err <> 2105 Then MsgBox Error$
Resume Exit_ПереходКПредыдущейЗа_Click
End Sub
Sub ПереходКСледующейЗап_Click ()
On Error GoTo Err_ПереходКСледующейЗап_Click
DoCmd GoToRecord , , A_NEXT
Exit_ПереходКСледующейЗап_Click:
Exit Sub
Err_ПереходКСледующейЗап_Click:
If Err <> 2105 Then MsgBox Error$
Resume Exit_ПереходКСледующейЗап_Click
End Sub
Форма “Концентрация Стоков”
Sub ЗакрытиеФормы_Концен_Click ()
On Error GoTo Err_ЗакрытиеФормы_Концен_Click
DoCmd Close
Exit_ЗакрытиеФормы_Концен_Click:
Exit Sub
Err_ЗакрытиеФормы_Концен_Click:
MsgBox Error$
Resume Exit_ЗакрытиеФормы_Концен_Click
End Sub
Sub ОтчетПоКонцентрациям_Click ()
On Error GoTo Err_ОтчетПоКонцентрациям_Click
Dim DocName As String
DocName = "ОтчетПоКонцентрациям"
DoCmd OpenReport DocName, A_PREVIEW
Exit_ОтчетПоКонцентрациям_Click:
Exit Sub
Err_ОтчетПоКонцентрациям_Click:
MsgBox Error$
Resume Exit_ОтчетПоКонцентрациям_Click
End Sub
Форма “Предприятие”
Sub Закрыть_Форму_Предпр_Click ()
On Error GoTo Err_Закрыть_Форму_Предпр_Click
DoCmd Close
Exit_Закрыть_Форму_Предпр_Click:
Exit Sub
Err_Закрыть_Форму_Предпр_Click:
MsgBox Error$
Resume Exit_Закрыть_Форму_Предпр_Click
End Sub
Sub Запустить_Форму_Выпу_Click ()
On Error GoTo Err_Запустить_Форму_Выпу_Click
Dim DocName As String
Dim LinkCriteria As String
DocName = "Выпуск"
DoCmd OpenForm DocName, , , LinkCriteria
Exit_Запустить_Форму_Выпу_Click:
Exit Sub
Err_Запустить_Форму_Выпу_Click:
MsgBox Error$
Resume Exit_Запустить_Форму_Выпу_Click
End Sub
Sub НоваяЗаписьВПредприя_Click ()
On Error GoTo Err_НоваяЗаписьВПредприя_Click
DoCmd GoToRecord , , A_NEWREC
Exit_НоваяЗаписьВПредприя_Click:
Exit Sub
Err_НоваяЗаписьВПредприя_Click:
MsgBox Error$
Resume Exit_НоваяЗаписьВПредприя_Click
End Sub
Sub ОтчетПоВыпускам_Click ()
On Error GoTo Err_ОтчетПоВыпускам_Click
Dim DocName As String
DocName = "ОтчетПоВыпускамПредприятия"
DoCmd OpenReport DocName, A_PREVIEW
Exit_ОтчетПоВыпускам_Click:
Exit Sub
Err_ОтчетПоВыпускам_Click:
MsgBox Error$
Resume Exit_ОтчетПоВыпускам_Click
End Sub
Sub ПереходКПервойЗаписи_Click ()
On Error GoTo Err_ПереходКПервойЗаписи_Click
DoCmd GoToRecord , , A_FIRST
Exit_ПереходКПервойЗаписи_Click:
Exit Sub
Err_ПереходКПервойЗаписи_Click:
MsgBox Error$
Resume Exit_ПереходКПервойЗаписи_Click
End Sub
Sub ПереходКПоследнейЗап_Click ()
On Error GoTo Err_ПереходКПоследнейЗап_Click
DoCmd GoToRecord , , A_LAST
Exit_ПереходКПоследнейЗап_Click:
Exit Sub
Err_ПереходКПоследнейЗап_Click:
MsgBox Error$
Resume Exit_ПереходКПоследнейЗап_Click
End Sub
Sub ПереходКПредыдущейЗа_Click ()
On Error GoTo Err_ПереходКПредыдущейЗа_Click
DoCmd GoToRecord , , A_PREVIOUS
Exit_ПереходКПредыдущейЗа_Click:
Exit Sub
Err_ПереходКПредыдущейЗа_Click:
If Err <> 2105 Then MsgBox Error$
Resume Exit_ПереходКПредыдущейЗа_Click
End Sub