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

Форма Должность

Option Compare Database

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

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

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err.Description

Resume Exit_Кнопка2_Click

End Sub

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

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

End Sub

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

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

DoCmd.ShowAllRecords

DoCmd.Close

Exit_Кнопка4_Click:

Form_Сотрудники.Refresh

Exit Sub

Err_Кнопка4_Click:

MsgBox Err.Description