Дипломная работа: Создание информационно-справочной системы "Методический кабинет"
cbofam = Фамилия
End Sub
Этот код устанавливает значение поля со списком на значение элемента Фамилия .Т.е. каждый раз при переходе к новой записи поле со списком будет обновляться и так же отображать эту запись.
Настройка приложения с помощью VBA
Чтобы решить проблему прямой возможности изменения данных в базе сделаем форму доступной только для чтения по умолчанию, чтобы пользователи не могли вносить изменения, не сделав специальный запрос на изменение данных. Таким образом, пользователи будут открывать форму и просматривать конкретную информацию не беспокоясь о возможности случайно внесения изменений. Чтобы сделать форму доступной только для чтения, нужно просто установить значения параметра AllowEdits на «Нет». Так же понадобится разработать способ, с помощью которого пользователи будут сообщать вам о надобности изменения данных.Нужно две дополнительные кнопки в вашем форме: одна для оповещения о желании пользователя внести изменения, и вторая для сохранения измененной записи.
1. Открыть вкладку Данные в перечень свойств.
2. Щелкнуть на параметре Разрешить изменения (AllowEdits) и установить его значение на «Нет»
Изменение записи
1. На панели элементов, щелкнув на инструмент Мастера(ControlWizards), чтобы включить его, и затем щелкнуть на элементе Кнопка. Отказаться от Мастера, а настраивать его параметры вручную.
2. При выключении элементе Мастера кнопка появится сразу, но будет иметь имя по умолчанию.
3. Нажать кнопку Свойства на панели инструментов.
4. В поле свойства Имя введите ИзменитьЗапись .
5. Нажать Enter и в поле свойства Подпись ввести & ИзменитьЗапись .
6. Щелкнув правой кнопкой мыши на кнопке Изменить запись и в появившемся меню выбрать Обработка событий .
7. Выбрать Программы. Откроется модуль формы Ввод пособий и будет создана процедура событий Click для кнопки.
Private Sub ИзминениеЗаписи _Click()
Me.AllowEdits=True
End Sub
Знак равенства (=) в коде означает «присвоить значение выражения слева выражению слева от знака». Слева от знака в нашем случае находится выражение Me.AllowEdits, которое ссылается на свойство формы РазрешитьИзменение(AllowEdits); для ссылки на свойство текущей формы используется ключевое слово Me, после которого вводится точка и далее имя свойства. Этот код дает команду VisualBasic присвоить выражению слева значение True (Истина). Установка свойства на значение True в коде VisualBasic – это то же самое, что и выбор значения Да (Yes) в перечне свойств формы. Чтобы установить значение параметра Нет (No) в коде, присвоить ему значение False (Ложь).
Возвращение формы
Когда пользователь щелкает по кнопке Изменить запись код выполняет и делает форму доступной для изменения. при перемещении пользователя к другой записи или сохранении текущей записи необходимо вернуть форму в состояние, в котором она доступна только для чтения, чтобы записи не были подвержены случайным изменениям до тех пор, пока снова не будет нажата кнопка Изменить запись .
Существует два случая, которые необходимо учесть:
- Каждый переход пользователя к следующей записи.
- Каждое сохранение текущей записи с использованием любого метода.
1 случай:
1. Открыть вкладку События в перечне свойств
2. Щелкнуть на свойстве Текущая запись и затем нажать кнопку построения.