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

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