ник: Gыwи
примерно так:
допустим, поле с датой в форме обзывается fldDate - в нем тыкаемся на вкладку события-после обновления. выбираем вид "программа".
автоматом получаем "скобки" private sub fldDate_UfterUpdate .... end sub - внутри пишем
lastdate=me.fldDate
потом над процедурой объявляем глобальную переменную
public lastdate as date
ну и строим функцию на считывание значения этой переменной
public function getlastdate() as date
getlastdate=lastdate
end function
осталось только на это поле даты во вкладке "данные" свойтсв занести значение по умолчанию
=getlastdate()
вот :) надеюсь, что не напугал и помог ;)