Курсовая работа: Разработка базы данных Автосалон АЛМАЗ с помощью программы Microsoft Access

Resume Exit_Кнопка24_Click

End Sub

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

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

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err.Description

Resume Exit_Кнопка25_Click

End Sub

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

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

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Кнопка26_Click:

Exit Sub

Err_Кнопка26_Click:

MsgBox Err.Description

Resume Exit_Кнопка26_Click

End Sub

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

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err.Description