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)")) 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.GoToRecord acForm, "ДобавлениеИП", acNewRec

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, "ДобавлениеИП"

'MsgBox Error$

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

End Sub

Private Sub Кнопка 58_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.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, "Удаление инструмента или приспособления")

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, "Удаление кластера")

'MsgBox Error$

Resume Удаление_Удаление_кластера_Exit

End Sub