DoCmd.OpenForm stDocName,,, stLinkCriteria
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
FORM_Договор_доб
Option Compare Database
Private Sub Кнопка19_Click()
On Error GoTo Err_Кнопка19_Click
DoCmd.GoToRecord,, acNewRec
Exit_Кнопка19_Click:
Err_Кнопка19_Click:
Resume Exit_Кнопка19_Click
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70
Exit_Кнопка20_Click:
Err_Кнопка20_Click:
Resume Exit_Кнопка20_Click
Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,, acMenuVer70
Exit_Кнопка21_Click:
Err_Кнопка21_Click:
Resume Exit_Кнопка21_Click
Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click
DoCmd.Close
Exit_Кнопка22_Click:
Err_Кнопка22_Click:
Resume Exit_Кнопка22_Click
FORM_Заказчик
FORM_Исполнитель
Private Sub Кнопка23_Click()
On Error GoTo Err_Кнопка23_Click
Exit_Кнопка23_Click:
Err_Кнопка23_Click:
Resume Exit_Кнопка23_Click
Private Sub Кнопка24_Click()
On Error GoTo Err_Кнопка24_Click
Exit_Кнопка24_Click:
Err_Кнопка24_Click:
Resume Exit_Кнопка24_Click
Private Sub Кнопка25_Click()
On Error GoTo Err_Кнопка25_Click
Exit_Кнопка25_Click:
Err_Кнопка25_Click:
Resume Exit_Кнопка25_Click
Private Sub Кнопка26_Click()
On Error GoTo Err_Кнопка26_Click
Exit_Кнопка26_Click:
Err_Кнопка26_Click:
Resume Exit_Кнопка26_Click
Private Sub Кнопка27_Click()
On Error GoTo Err_Кнопка27_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo,, acMenuVer70
Exit_Кнопка27_Click:
Err_Кнопка27_Click:
Resume Exit_Кнопка27_Click
FORM_Меню
Private Sub Услуги_Click()
On Error GoTo Err_Услуги_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Услуги_Click:
Err_Услуги_Click:
Resume Exit_Услуги_Click
Private Sub Добавить_заказчика_Click()
On Error GoTo Err_Добавить_заказчика_Click
Exit_Добавить_заказчика_Click:
Err_Добавить_заказчика_Click:
Resume Exit_Добавить_заказчика_Click
Private Sub Добавить_изготовителя_Click()
On Error GoTo Err_Добавить_изготовителя_Click
Exit_Добавить_изготовителя_Click:
Err_Добавить_изготовителя_Click:
Resume Exit_Добавить_изготовителя_Click
Private Sub Договор_Click()
On Error GoTo Err_Договор_Click
Exit_Договор_Click:
Err_Договор_Click:
Resume Exit_Договор_Click
Private Sub Отчёты_Click()
On Error GoTo Err_Отчёты_Click
Exit_Отчёты_Click:
Err_Отчёты_Click:
Resume Exit_Отчёты_Click
Private Sub Выход_Click()
On Error GoTo Err_Выход_Click
Exit_Выход_Click:
Err_Выход_Click:
Resume Exit_Выход_Click
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1059) & ChrW(1089) & ChrW(1083) & ChrW(1091) & ChrW(1075) & ChrW(1072)
Exit_Кнопка12_Click:
Err_Кнопка12_Click:
Resume Exit_Кнопка12_Click
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
stDocName = ChrW(1047) & ChrW(1072) & ChrW(1082) & ChrW(1072) & ChrW(1079) & ChrW(1095) & ChrW(1080) & ChrW(1082)
Exit_Кнопка13_Click:
Err_Кнопка13_Click:
Resume Exit_Кнопка13_Click
Private Sub Кнопка14_Click()
On Error GoTo Err_Кнопка14_Click
Exit_Кнопка14_Click:
Err_Кнопка14_Click:
Resume Exit_Кнопка14_Click
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
stDocName = ChrW(1044) & ChrW(1086) & ChrW(1075) & ChrW(1086) & ChrW(1074) & ChrW(1086) & ChrW(1088)
Exit_Кнопка15_Click:
Err_Кнопка15_Click:
Resume Exit_Кнопка15_Click
Private Sub Кнопка16_Click()
Страницы: 1, 2, 3, 4, 5, 6, 7