Реферат: Проектирование и разработка баз и банков данных

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$