Курсовая работа: Учет основного оборудования на предприятии
MsgBox
Error$
Resume Добавление_Ввод_ГПС_Exit
End Sub
Private Sub Кнопка41_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 КнМарка_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
Форма
«Марка обрабатывающего оборудования»
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) Or (Forms![Марка обрабатывающего
оборудования]![Мощность] Is Null)")) Then
MsgBox
"Введены не все данные!", vbExclamation, "Добавление новой марки
оборудования"
Exit Sub
End If
DoCmd.GoToControl "МаркаОбр"
DoCmd.FindRecord Val(Forms![Марка обрабатывающего оборудования]!Марка), acEntire, False, , True,
acCurrent, True
If (Forms![Марка
обрабатывающего оборудования]!Марка = Forms![Марка обрабатывающего оборудования]!МаркаОбр)
Then
Beep
MsgBox
"Такой номер уже существует!", vbExclamation, "Ошибка"
Exit Sub
End If
DoCmd.OpenForm "ДобавлениеМаркиОбр", acNormal, "", "", , acIcon
DoCmd.GoToRecord acForm, "ДобавлениеМаркиОбр", acNewRec
Forms!ДобавлениеМаркиОбр!МаркаОбр = Forms![Марка обрабатывающего оборудования]!Марка
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.GoToControl "[МаркаОбр]"
DoCmd.FindRecord Forms![Марка обрабатывающего оборудования]!МаркаУдаление, acEntire, False, , True,
acCurrent, False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close acForm, "ДобавлениеМаркиОбр"
DoCmd.Requery ""
DoCmd.Requery "МаркаУдаление"
Forms![Марка
обрабатывающего оборудования]!МаркаУдаление = ""
End
Удаление_Удаление_марки_оборудования_Exit:
Exit Sub
Удаление_Удаление_марки_оборудования_Err:
DoCmd.Close
acForm, "ДобавлениеМаркиОбр"
m = MsgBox("Удаление
невозможно так как имеется оборудование использующее эту марку!", vbExclamation,
"Удаление марки оборудования")
'MsgBox
Error$
Resume
Удаление_Удаление_марки_оборудования_Exit
End
Sub
Форма
«Марка транспортного оборудования»
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
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 |