| |
|
|
| | Вот это работает. Заполняет поле Изменено и Кем Изменено при изменении любой записи.
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
Это один из вариантов кода. Я пробовала разные варианты. Пока не получается.
Спасибо  | |
| |
| |
| |
|
|
| | попробуйте
If nz(.Добавлено)="" Then | |
| |
| |
|
|
| |
|
|
| | а какой тип поля?
If nz(me.Добавлено)="" Then | |
| |
| |
| |
|
|
| | ти поля - ДАТА. Поэтому подходит и Isnull. Вопрос в том, вообще я там все правильно написала? Что-то мне так не кажется  | |
| |
| |
| |
|
|
| | я бы вот это убрал
With CodeContextObject
Public Function Add_Record()
If IsNull(.Добавлено.Value) Then
.Добавлено.Value = Now()
.Кем_добавлено = Members
End If
End Function
а сама функция - она в форме или в модулях | |
| |
| |
| |
|
|
| | Public Function Add_Record(значение as date)
поставьте точку останова и в отладчике наведите мышку на слово Добавить | |
| |
| |
| |
|
|
| | Public Function funDate(datDate As Date)
If Len(Nz(datDate)) = 0 Then Exit Function
If IsDate(datDate) = False Then Exit Function
End Function | |
| |
| |
| |
|
|
| | в модуле.
сейчас все попробую, что посоветовали.
а Len и IsDate - это аналоги каких полей у меня? | |
| |
| |
|
|
| |
|
|
| | блин.
Как я буду в отладчике что-то пробовать, если ошибки не выдается?
Что такое точка останова? Это пауза что ли? | |
| |
| |
| |
|
|
| | значит не поможете, да?  | |
| |
| |
| |
|
|
| | мышкой в режиме написания кода щёлк левее строчки - на сером фоне | |
| |
| |
| |
|
|
| | появится точка останова -жирная такая | |
| |
| |
| |
|
|
| | запускаем программу и она тута остановиться | |
| |
| |
| |
|
|
| | наведите мышку на слово Добавить -
появится значение....
прикрепи файлик и дело с "концом" | |
| |
| |
| |
|
|
| | http://va-ivanov.narod.ru/access/Glava_13/Index31.htm | |
| |
| |
