50116 (Учет основного оборудования на предприятии), страница 8

2016-07-30СтудИзба

Описание файла

Документ из архива "Учет основного оборудования на предприятии", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "50116"

Текст 8 страницы из документа "50116"

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

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, "", "", , 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 Кнопка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)")) 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

Форма «Транспортного оборудования»

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

Свежие статьи
Популярно сейчас
Зачем заказывать выполнение своего задания, если оно уже было выполнено много много раз? Его можно просто купить или даже скачать бесплатно на СтудИзбе. Найдите нужный учебный материал у нас!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4121
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее