ник: Аленка
Вот это работает. Заполняет поле Изменено и Кем Изменено при изменении любой записи.
Public Function Change_Record()
With CodeContextObject
.Изменено = Now()
.[Кем_изменено] = Members
End With
End Function
Но у меня в каждой таблице есть еще поля Добавлено и Кем Добавлено. Раньше они заполнялись с помощью значения по умолчанию. Но это жутко неудобно. Я решила также сделать публичную фукнцию, чтобы вообще забыть о значениях по умолчанию и т.п. ПРИ ЭТОМ ЭТИ ПОЛЯ ДОЛЖНЫ ЗАПОЛНЯТЬСЯ ЛИШЬ ОДИН РАЗ, ЕСЛИ ОНИ ЯВЛЯЮТСЯ СВОБОДНЫМИ, ТО ЕСТЬ ПРИ ДОБАВЛЕНИИ ЗАПИСИ, что понятно. Дальнейшее их изменение невозможно.
Но не работает у меня IF. Подскажете, как правильно?
Public Function Add_Record()
With CodeContextObject
If IsNull(.Добавлено.Value) Then
.Добавлено.Value = Now()
.Кем_добавлено = Members
End If
End With
End Function
Это один из вариантов кода. Я пробовала разные варианты. Пока не получается.
Спасибо 