Контрольная работа: Создание базы данных государственного архива Восточно-Казахстанской области

Resume Exit_Печать_Click

End Sub

Private Sub Сохранить_Click()

On Error GoTo Err_Сохранить_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Сохранить_Click:

Exit Sub

Err_Сохранить_Click:

MsgBox Err.Description

Resume Exit_Сохранить_Click

End Sub

Private Sub Удалить_запись_Click()

On Error GoTo Err_Удалить_запись_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Удалить_запись_Click:

Exit Sub

Err_Удалить_запись_Click:

MsgBox Err.Description

Resume Exit_Удалить_запись_Click

End Sub

Private Sub Переход_Click()

On Error GoTo Err_Переход_Click

Dim stDocName As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1093)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Переход_Click:

Exit Sub

Err_Переход_Click: