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