[3 - 5 -БД] ЛР 4 (Лабораторная работа №4)
Описание файла
Файл "[3 - 5 -БД] ЛР 4" внутри архива находится в папке "Лабораторная работа №4". Документ из архива "Лабораторная работа №4", который расположен в категории "". Всё это находится в предмете "модели данных" из 5 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. .
Онлайн просмотр документа "[3 - 5 -БД] ЛР 4"
Текст из документа "[3 - 5 -БД] ЛР 4"
Министерство образования РФ
Государственное образовательное учреждение высшего профессионального образования «Московский государственный технический университет им. Н. Э. Баумана»
Кафедра ИУ5 «Системы Обработки Информации и Управления»
Лабораторная работа №4
по предмету: «Модели данных»
Выполнил студент группы ИУ5-51:
Сидякин А.А.
Москва 2010
Обработка ошибки "Отсутствие в списке":
Private Sub post_NotInList(NewData As String, Response As Integer)
Dim stDocName As String
' окно сообщения
If MsgBox("Нет такой должности. Добавить новую?", vbYesNo, "Ошибка в должности") = vbYes Then
stDocName = "Posts"
' открываем форму с указанным именем на добавление (последний аргумент)
DoCmd.OpenForm stDocName, , , , acFormAdd
' присвоим введенное в список значение соответствующему полю
Forms![Posts]![Name] = NewData
' сохраняем значение
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
' отменяем последнее действие в исходной форме (ввод текста)
Forms![Empoyees]![post].Undo
' обновляем значения списка
Forms![Empoyees]![post].Requery
Else
Forms![Empoyees]![post].Undo
End If
' обнуляем ошибку
Response = 0
End Sub
Группа переключателей:
Параметры запуска: