Автоматическое добавление вычисляемых полей в таблицу

[psv_nko]

Проблема следующая: в форме указаны вычисляемые поля, нужно, что бы результат записывался в таблицу. Как это сделать?

[Mao]

Код: Выделить всё


Dim rst as Recordset
Set rst=CurrentDb.OpenRecordset("<Имя таблицы>", dbOpenDynaset)
With rst
        .AddNew
        .<Имя ячейки>=me.<Имя вычисляемого поля>
        .Update
        .Bookmark = .LastModified
End With
rst.close

[psv_nko]

А это надо вставить в строку Данные во вкладке Данные в свойствах поля?
Извини, если вопрос покажется глупым - ятолько начинаю работать с аксесом

[Mao]

Это текст кода вещай на какую нить кнопку типа записать или на кнопку перехода к следующей записи иль еще куда нить =))

[psv_nko]

Спасибо большое