ник: МаксФактор
изменил так:
For intI = 1 To DCount("*", "ОсновнДанные ")
DoCmd.GoToRecord acDataForm, "ОсновнДанные ", acGoTo, intI
v = Abs(Me!Поле28)
Me!ууууу = v
Next intI
но ругается на это: DoCmd.GoToRecord acDataForm, "ОсновнДанные ", acGoTo, intI
говорит что объект ОсновнДанные не открыт