Лабораторная работа №4

В созданной БД создать форму для изменения и добавления записей одновременно в нескольких таблицах.

Для этого нужно обработать ошибку «отсутствие в списке»: создать процедуру, позволяющую не ограничиваться существующим списком для полей со списком. При вводе отсутствующего значения в список:

· должно выводиться окно сообщения об ошибке;

· должна открываться форма на добавление новой записи для данных таблицы, содержащихся в комбобоксе;

· после закрытия формы в выпадающем списке должно присутствовать новое значение.

В режиме конструктора форм и отчетов посмотреть, где прописывается информация о том, откуда берутся данные в форме/отчете и в составляющих их элементах.
Создать на одной из форм группу переключателей.
Посмотреть разницу между «обычным», «модальным» и «всплывающим» окнами (свойства формы )
Поменять параметры запуска так, чтобы база запускалась с созданной ранее кнопочной формы без окна базы данных. [11]

Пример процедуры:

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

‘ отменяем последнее действие в исходной форме (ввод текста)