ник: Анатолий (Киев)
"Эталон" - таблица или запрос? Возможно там есть вычисляемые поля, поэтому и ошибка.
Если нужны только 3 поля - упростите код, вместо If и For просто подставьте значения:
Me.Dirty = False 'Сохраняем изменения текущей записи
With Me.RecordsetClone
.AddNew
![№Номер] = Me![№номер]+1
![ДействительноДо] = Me![ДействительноДо]
![Эталон1] = Me![Эталон1]
.Update
Me.Bookmark = .LastModified 'Если нужно перейти на новую запись
End With
|