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

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

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

DoCmd.Close

DoCmd.ShowAllRecords

Exit_Кнопка4_Click:

Form_Форма1.Refresh

Exit Sub

Err_Кнопка4_Click:

MsgBox Err.Description

Resume Exit_Кнопка4_Click

End Sub

Форма Сотрудники

Option Compare Database

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

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

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Кнопка12_Click:

Exit Sub

Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

End Sub

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

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

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка13_Click:

Exit Sub

Err_Кнопка13_Click: