Private Sub КнДобавить_Click()

On Error GoTo Добавление_Ввод_оборудования_Err

With CodeContextObject

If (Eval("(Forms![Обрабатывающее оборудование]![Марка] Is Null) Or (Forms![Обрабатывающее оборудование]![Гау] Is Null) Or (Forms![Обрабатывающее оборудование]![Дата] Is Null) Or (Forms![Обрабатывающее оборудование]![Стоим] Is Null) Or (Forms![Обрабатывающее оборудование]![Код] Is Null)")) Then

MsgBox "Введены не все данные!", vbExclamation, "Добавление нового оборудования"

Exit Sub

End If

DoCmd.GoToControl "КодОбр"

DoCmd.FindRecord Val(Forms![Обрабатывающее оборудование]!Код), acEntire, False, , True, acCurrent, True

If (Val(Forms![Обрабатывающее оборудование]!Код) = Forms![Обрабатывающее оборудование]!КодОбр) Then

Beep

MsgBox "Такой номер уже существует!", vbExclamation, "Ошибка"

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеОбр", acNormal, "", "", , acHidden

DoCmd.OpenForm "Запрос №Кластеров Проверка", acNormal, "", "", , acHidden

DoCmd.OpenForm "Запрос №Кластера по Марке", acNormal, "", "", , acHidden

DoCmd.GoToRecord acForm, "ДобавлениеОбр", acNewRec

If (Forms![Запрос №Кластеров Проверка]!CountКодКласт = 0) Then

DoCmd.OpenForm "ДобавлениеКластер", acNormal, "", "", , acHidden

DoCmd.GoToRecord acForm, "ДобавлениеКластер", acNewRec

DoCmd.OpenForm "ФормаЗапросМАХ№Кластера", acNormal, "", "", , acHidden

Forms!ДобавлениеКластер!КодКласт = Forms!ФормаЗапросМАХ№Кластера!MaxКодКласт + 1

Forms!ДобавлениеОбр!КодКласт = Forms!ФормаЗапросМАХ№Кластера!MaxКодКласт + 1

DoCmd.Close acForm, "ФормаЗапросМАХ№Кластера"

DoCmd.OpenForm "ФормаЗапросДЛ,Диам,ЧастМарке", acNormal, "", "",, acHidden

Forms!ДобавлениеКластер!ЧастКласт = Forms![ФормаЗапросДЛ,Диам,ЧастМарке]!ЧастотОбр

Forms!ДобавлениеКластер!ДлинКласт = Forms![ФормаЗапросДЛ,Диам,ЧастМарке]!ДлДетОбр

Forms!ДобавлениеКластер!ДиамКласт = Forms![ФормаЗапросДЛ,Диам,ЧастМарке]!ДиамДетОбр

Forms!ДобавлениеКластер!ОтклКласт = 17

DoCmd.Close acForm, "ФормаЗапросДЛ,Диам,ЧастМарке"

DoCmd.Close acForm, "ДобавлениеКластер"

End If

If (Forms![Запрос №Кластеров Проверка]!CountКодКласт = 1) Then

Forms!ДобавлениеОбр!КодКласт = Forms![Запрос №Кластера по Марке]!КодКласт

End If

DoCmd.Close acForm, "Запрос №Кластеров Проверка"

DoCmd.Close acForm, "Запрос №Кластера по Марке"

Forms!ДобавлениеОбр!КодОбр = Forms![Обрабатывающее оборудование]!Код

Forms!ДобавлениеОбр!МаркаОбр = Forms![Обрабатывающее оборудование]!Марка

Forms!ДобавлениеОбр!ДатаОбр = Forms![Обрабатывающее оборудование]!Дата

Forms!ДобавлениеОбр!СтоимОбр = Forms![Обрабатывающее оборудование]!Стоим

Forms!ДобавлениеОбр!КодГАУ = Forms![Обрабатывающее оборудование]!Гау

DoCmd.Close acForm, "ДобавлениеОбр"

DoCmd.Requery ""

DoCmd.Requery "КодУдаления"

End With

Добавление_Ввод_оборудования_Exit:

Exit Sub

Добавление_Ввод_оборудования_Err:

DoCmd.Close acForm, "ФормаЗапросМАХ№Кластера"

DoCmd.Close acForm, "ФормаЗапросДЛ,Диам,ЧастМарке"

DoCmd.Close acForm, "ДобавлениеКластер"

DoCmd.Close acForm, "Запрос №Кластеров Проверка"

DoCmd.Close acForm, "Запрос №Кластера по Марке"

DoCmd.Close acForm, "ДобавлениеОбр"

MsgBox Error$

Resume Добавление_Ввод_оборудования_Exit

End Sub

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

On Error GoTo Удаление_Удаление_оборудования_Err

If (Eval("Forms![Обрабатывающее оборудование]!КодУдаления Is Null")) Then

MsgBox "Введены не все данные!", vbExclamation, "Удаление оборудования"

Exit Sub

End If

DoCmd.OpenForm "ДобавлениеОбр", acNormal, "", "", , acHidden

DoCmd.SelectObject acForm, "ДобавлениеОбр", False

DoCmd.GoToControl "[КодОбр]"

DoCmd.FindRecord Forms![Обрабатывающее оборудование]!КодУдаления, acEntire, False, , True, acCurrent, False

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close acForm, "ДобавлениеОбр"

DoCmd.Requery ""

DoCmd.Requery "КодУдаления"

Forms![Обрабатывающее оборудование]!КодУдаления = ""

Удаление_Удаление_оборудования_Exit:

Exit Sub

Удаление_Удаление_оборудования_Err:

DoCmd.Close acForm, "ДобавлениеОбр"

m = MsgBox("Удаление невозможно так как имеются инструменты или приспособления, привязанные к данному оборудованию!", vbExclamation, "Удаление оборудования")

Resume Удаление_Удаление_оборудования_Exit

End Sub