50116 (Учет основного оборудования на предприятии), страница 9
Описание файла
Документ из архива "Учет основного оборудования на предприятии", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "50116"
Текст 9 страницы из документа "50116"
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![Транспортное оборудование]!Стоим
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 Кнопка6_Click()
If [Forms]![Отчет]![Flag].Value = Null Then m = MsgBox("Введите табельный номер", vbExclamation, "Ошибка"): Exit Sub
If [Forms]![Отчет]![Flag].Value = 1 Then
ЗапросОбр
Else
ЗапросТр
End If
End Sub
Private Sub Список0_Click()
DoCmd.Requery "Table"
End Sub
Private Sub Флажок4_Click()
If Флажок4.Value Then
[Список0].RowSource = "Обрабатывающее оборудование"
Table.SourceObject = "Запрос.ЗапросЗамены Обр"
Else
[Список0].RowSource = "Транспортное оборудование"
Table.SourceObject = "Запрос.ЗапросЗамены Тр"
End If
[Список0].Value = Null
End Sub