Управление базами данных Access на VBA - eDrive

26
Событие До обновления (BeforeUpdate) возникает в момент
перемещения с записи на запись. Если пользователь изменяет запись,
свойство формы Dirty становится истинным, и если после этого аргументу
Cancel присвоить значение True, событие отменяется. Метод Undo
восстанавливает исходные данные. Событие После обновления (AfterUpdate)
используется для выполнения определенных действий в зависимости от
введенных в поле значений. При передаче фокуса от одного элемента
управления к другому возникают события Вход (Enter), соответствующее
приему фокуса, и Выход (Exit), соответствующее его потере.
Для выявления идентичных объектов можно использовать оператор Is.
Он определяет логический результат как Null или Not Null.
Для ссылок из формы или отчета на объект RecordSet используется
свойство RecordSetClone. Значение этого свойства формы определяет копию
записей базовой таблицы или запроса, указанных в свойстве Источник
записей формы. В частности, если форма основана на запросе, то обращение
к свойству RecordSetClone эквивалентно созданию копии объекта RecordSet с
помощью того же запроса. Если к форме будет дополнительно применен
фильтр, то объект RecordSet создается с учетом фильтра:
Примеры
Sub СвободныеЭлементыAccess()
Dim надпись As Object, поле As Object
DoCmd.OpenForm "Форма1"
Set надпись = Forms!Форма1.Надпись1
Set поле = Forms!Форма1.Поле0
надпись.Caption = поле.Text
End Sub
Sub ПолеФормыAccess ()
Dim поле As Control
DoCmd.OpenForm "Клиенты"
Set поле = Forms!Клиенты![Обращаться к]
поле = "Сергей Петров"
Forms!Клиенты.Refresh
End Sub
Sub ОбновлениеЧерезФормуAccess ()
DoCmd.OpenForm "Сотрудники", , , "Фамилия = 'Иванов'"
Set где = Forms!Сотрудники
If IsNull (где.оклад) Then где.оклад = 0
где.оклад = InputBox ("Можно заменить " & Str (где.оклад), , где.оклад)
DoCmd.Requery
End Sub
Sub СтильПоляФормы ()
DoCmd.OpenForm "Клиенты", acDesign, , , , acHidden
Set поле = Forms!Клиенты!Имя
поле.FontSize = 14