Курсовая работа: Учет основного оборудования на предприятии
'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
|